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CHAPTER  ONE 
BACKGROUND 


The  advent  of  multiphase  engineering  materials,  in  particular  fiber 
reinforced  composites,  has  opened  the  door  for  tailored  engineering 
materials.  Depending  on  the  nature  of  packing,  order  and  symmetry  of  the 
different  phases,  a  wide  range  of  material  properties  and  structural 
stability  can  be  achieved.  To  address  the  technological  needs  for  structural 
applications  in  space  and  on  the  ground  wherein  multidirectional 
reinforcement  and  high  level  of  thermo-mechanical  stability  are  required,  a 
great  deal  of  effort  has  been  devoted  to  the  development  of  strong  and  tough 
composite  material  in  the  past  decade. 


It  has  been  recognized  that  fiber  architecture,  being  the  structural 
backbone  of  composites,  has  much  to  contribute  to  the  structural 
toughening  of  composites.  As  it  is  often  found  in  nature,  e.g.,  bee’s 
honeycomb,  and  crystal  of  reticulated  cerussite,  a  well  ordered  triangular 
packing  with  material  symmetry  provides  the  most  efficient  and 
structurally  stable  material  system.  To  reduce  this  material  concept  into 
practice,  it  has  been  found  that  fiber  replacement  by  textile  processes  in  an 
economical  and  practical  way  to  create  the  desirable  fiber  architecture. 
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For  example,  as  shown  in  Figure  1.1,  a  triaxially  woven  fabric  produces  a 
well  regulated,  symmetric  network  of  hexagons.  As  a  result,  this  structure 
has  the  highest  level  of  planar  stability  and  isotropy  comparing  to  other 
planar  fibrous  assemblies.  For  thick  structures,  on  the  other  hand,  the 
concept  of  close-to-cubic  (CTC)  symmetry  was  explored  for  hardened 
structure  for  re-entry  applications  utilizing  a  4-directional  reinforcement. 
Reducing  the  close-to-cubic  symmetry  concept  into  practice  in  our 
laboratory  by  a  three-dimensional  braiding  process,  the  concept  of 
structural  toughening  by  3-D  fiber  architecture  has  been  successfully 
demonstrated. 


Another  significant  outcome  of  our  research  is  the  demonstration  of  the 
direct  formation  of  structural  shapes  by  the  3-D  braiding  process.  The 
idealized  unit  cell  structure  from  a  3-D  braided  1-beam  is  shown  in  Figure 
1.2.  While  the  idea  of  net  shape,  tough  composite  is  very  attractive  for 
structural  applications,  the  question  often  asked  is  the  compressive 
resistance  of  the  3-D  integrated  structures. 


The  major  concern,  as  seen  in  Figure  1.3,  is  the  apparent  structural 
weakness  at  yarn  cross-overs  or  where  the  yarns  are  bent.  To  address  this 
problem  or  to  elevate  the  level  of  compressive  resistance  of  this  3-D 
structures,  it  appears  that  an  additional  reinforcement  system  or  an 
incompressible  phase  would  be  needed. 


"Nr 
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Figure  1.1  Development  of  Planar  Stability  by  Triaxial  Weaving. 


THI  PACKING  AND  ORIENTATION  OP  YARNS  IN  A 
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Figure  1.2  Close-to-Cubic  Symmetry  by  3-D  Braiding. 
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As  we  experience  in  ball  bearings  and  many  other  applications,  it  is  well 
known  that,  for  the  same  material,  spherical  shape  provides  the  best 
compressive  resistance.  If  one  introduces  a  spherical  phase  in  the 
reinforcement  system  and  allows  the  spheres  to  bear  the  compressive 
stresses,  a  hybrid  geometrical  structure  having  tensile,  shear  and 
compressive  resistance  can  be  produced.  This  can  conceivably  be  achieved 
as  shown  in  Figure  1.4  by  the  superposition  of  a  closest  packing  of  spheres 
in  a  tetrahedral/octahedral  fiber  network. 


Equally  as  important  as  the  development  of  the  High  Symmetry  Composites 
(HSC)  system,  the  issue  of  prediction  of  macro- structural  performance 
from  microstructure  on  a  unit  cell  level  must  be  addressed.  Although  some 
initial  work  has  been  carried  out  on  the  modelling  of  unit  cell  geometry  of 
3-D  braid  composites,  there  is  currently  no  satisfactory  theoretical 
framework  linking  microstructural  unit  cell  to  macrostructural 
performance  as  called  for  in  a  recent  ASME  meeting.  The  mesomechanics 
of  HSC  is  quite  necessary  in  order  to  provide  guidance  to  the  creation  of  the 
multiphase  material  system  and  to  explore  the  potential  of  structural 
systems  from  these  materials  for  end  use  requirements  yet  to  be  defined. 
What  is  needed  is  the  precise  identification  and  quantification  of  the  unit 
cell  geometry  with  a  combination  of  spheres  and  fiber  network. 


Figure  1.4  High  Symmetry  Composites  by  Closest 
3-D  Braided  Fiber  Network. 
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Treating  this  cell  as  a  finite  structural  unit,  a  Fine  Cell  Model  (FCM)  can  be 
developed.  The  FCM,  on  one  hand,  account  for  the  detail  design  of  the  unit 
cell  structure  and,  on  the  other  hand,  it  allows  the  exploration  of  global 
structural  behavior,  therefore  bridging  the  communication  gap  between 
material  scientists  and  structural  mechanicians. 

Accordingly,  the  objectives  of  this  proposed  study  are: 

1.  To  demonstrate  the  feasibility  and  potential  of  composite 
matenal  system  with  high  level  of  tensile,  compressive 
and  damage  resistance  by  the  concept  of  High  Structural 
Symmetry. 

2.  To  establish  a  theoretical  framework  for  the  design, analysis  and 

prediction  of  structural  performance  of  the  High 
Symmetry  Composite  through  Finite  Cell  Modelling. 

To  achieve  our  objectives,  this  study  begins  with  a  review  of  the  technology 
of  3-D  fiber  architecture.  To  provide  a  basis  for  discussion,  the  3-D  fiber 
architectures  are  classified  according  to  the  level  of  symmetry.  After 
establishing  a  framework  for  the  modelling  of  the  geometry  of  the 
mechanical  responses  of  high  symmetry  structures  are  modelled  by  the 
finite  cell  methodology.  In  order  to  transform  the  geometric  concepts  to 
reality,  a  method  for  the  fabrication  of  the  high  symmetry  structures  is 
illustrated.  It  was  planned,  in  the  subsequent  Phase  of  the  program,  that 
the  fabrication  method  will  be  demonstrated  and  employed  to  produce  high 
symmetry  ceramic  matrix  composites.  Verifications  of  the  geometric  and 
mechanical  models  were  also  planned  in  the  subsequent  Phase  of  the 
program  by  mechanical  testing  and  geometric  characterization. 
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CHAPTER  TWO 

3-D  FIBER  ARCHITECTURE 


In  order  to  develop  a  classification  system  for  3D  fiber  architectures  one 
needs  to  examine  the  state  of  the  art  of  these  architectures.  The  result  of 
this  examination  provides  information  which  can  be  used  to  develop  new 
classes  based  on  the  distinguishing  and  the- common  properties  of  the  3D 
fiber  architectures  which  are  produced  today  and  which  will  be  produced 
tomorrow. 

This  chapter  provides  the  reader  with  a  review  of  the  state  of  the  art  of  3D 
fiber  architectures.  The  different  fiber  architectures  are  grouped  in  this 
chapter  by  their  traditional  classifications.' 


Knits 

Knitting  involves  the  interlooping  of  yams.  The  knitting  process  involves 
two  steps;  the  formation  of  loops  in  the  yams,  and  the  linking  of  the  formed 
loops  together  with  needles.  There  are  two  basic  types  of  knitting.  These 
types  are  called  warp  knitting  and  weft  knitting.  Basic  warp  and  weft  knit 
structures  are  shown  in  Figure  2-1. 
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Basic  Weft  Knit  Stitch  [20] 


Basic  Warp  Knit  Stitch  [20] 


Figure  2-1 
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Weft  knitting  is  the  oldest  form  of  knitting.  The  first  weft  knit  machine  was 
invented  about  1539  [12].  Weft  knitting  involves  the  formation  of  a  whole 
row  of  loops  from  one  yarn.  These  loops  are  then  pulled  through  the 
previous  row  of  loops  to  form  the  knit.  Most  apparel  is  formed  by  weft 
knitting.  Hand  knitting  is  a  special  case  of  weft  knitting. 

Warp  knitting  is  always  machine  generated.  The  first  warp  knitting 

machine  was  invented  in  1847  [12].  In  warp  knitting  many  yarns  are  feed 

« 

as  a  sheet  to  the  knitting  machine.  Each  yam  goes  through  its  own  needle. 
The  needles  simultaneously  form  a  loop  and  interloop  of  the  yam.  This 
knitting  style  possesses  a  higher  production  ^ate  but  also  possesses  a  lower 
extensibility  compared  to  weft  knitting . 

Today,  warp  knitting  is  the  most  popular  type  of  knitting  for  three 
dimensional  textiles.  The  general  form  of  the  warp  knit  style  used  in 
engineering  applications  is  Multiaxial  Warp  Knits  (MWK).  MWK  typically 
are  composed  of  lay-ins  in  the  0°,  90°,  and  ±fl  directions.  The  lay-in  are 
knitted  together  with  a  warp  knit  stitch.  The  lay-in  yams  usually  possess  a 
much  larger  cross-sectional  area  than  the  knitting  yams  and  are  therefore 
the  major  load  bearing  component  of  the  fabric.  These  fabrics  are 
produced  by  many  companies  including:  Kyntex  of  Sequin  Texas,  HiTech  of 
Reno  Nevada,  and  Bean  Fiberglass  Company  of  Jafirey  New  Hampshire. 

The  warp  knit  stitch  typically  used  in  MWK  is  a  chain  or  tricot  stitch.  Both 
stitches  are  shown  in  Figure  2-2.  For  many  applications  the  tricot  stitch  is 
the  most  popular.  This  stitch  allows  for  more  flexibility  in  the  shear  and 
weft  directions  [36].  In  a  certain  type  of  MWK,  weft  insert  warp  knits 


Tricot  Stitch  [32] 


Chain  Stitch  [32] 


figure  2-2 
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(WIWK),  the  weft  inserted  yams  can  form  sinusoidal  or  linear  paths. 
WIWK  are  distinguished  by  two  sets  of  lay-in  yarns  orthogonal  to  each 
other.  A  WIWK  with  nonlinear  weft  yams  and  a  MWK  are  shown  in 
Figure  2-3. 

Most  MWK  machines  can  precisely  control  the  placement  of  the  warp 
knitting  needle.  However  impalement  of  weft  inserted  yams  in  the  bias 
direction  often  occurs.  Impalement  breaks  and  displaces  fibers.  Thus 
impalement  results  in  reduced  in-plane  strength  and  structural 
consistency  in  the  fabric. 

«► 

m 

The  Karl  Mayer  Textile  Machine  Company  of  West  Germany  has  invented 
a  WMK  machine  which  does  not  impale  yams  [36].  This  affords  a  higher 
yam  to  fabric  translation  efficiency.  However  these  fabrics  are  more 
voluminous  than  the  other  weft  insert  warp  knits.  This  bulkiness  leads  to  a 
lower  fiber  volume  fraction.  This  lower  fiber  volume  fraction  leads  to 
reduced  composite  strength. 

MWK  knitting  allows  for  much  design  flexibility.  This  flexibility  partly 
arises  from  the  variability  in  the  direction,  and  linearity  of  the  weft  inserts. 
The  effect  of  the  direction  of  yam  placement  on  the  strength  efficiency  of  a 
fabric  is  shown  in  Figure  2-4.  In  this  figure  the  strength  efficiency  in  the 
machine  (fabric  takeoff)  direction  and  the  weft  (cross  or  normal  to  machine) 
direction  are  shown  as  a  function  of  lay  in  yam  orientation  at  various 
volume  fractions,  ranging  from  0%  to  40%,  of  longitudinal  lay-in  yams. 
The  strength  efficiency  is  defined  as  the  fractional  part  of  the  strength  of  the 
yarns  transferred  to  the  fabric  [21].  When  tested  in  the  machine  direction. 
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MWK  [32] 
Figure  2-3 


Strength  Efficiency  of  a  MWK  as  a  Function  of  Lay-In  Yam  Orientation  [21] 


Figure  2-4 
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the  strength  efficiency  decreases  as  the  lay  in  yarn  angle  increases.  An 
increase  in  the  longitudinal  yarn  fiber  volume  fraction  increases  the 
strength  efficiency  in  the  machine  direction.  Since  the  weft  direction  is 
normal  to  the  longitudinal  lay-ins,  an  increase  in  longitudinal  yarn  fiber 
volume  fraction  decreases  the  strength  efficiency. 

The  effect  of  linearity  can  be  discussed  by  comparing  linear  and  nonlinear 
±45°  weft  inserted  warp  knits  [24].  Linear  weft  inserted  warp  knits  possess 
an  higher  initial  modulus  than  nonlinear.  The  strength  of  the  nonlinear 
knit  is  slightly  higher  in  the  0  and  90  degree  direction.  However,  the  bias 
strength  of  the  linear  knit  is  much  greater  than  the  nonlinear,  since  in  the 
linear  knit  more  fiber  is  aligned  in  this  direction.  The  flexibility  of  these 
knits  can  vary  greatly  depending  on  the  number  of  layers  and  the  direction 
of  the  weft  yam  inserts. 

MWK  can  produce  fabrics  up  to  1.3  centimeters  thick.  By  using  another 
technique,  a  thick  warp  knitted  fabric  can  be  formed.  The  Aerospatiale 
Company  of  France  pioneered  this  technique. 

Aerospatiale  developed  a  three  dimensional  circular  knitting  machine. 
Presently  there  are  two  models  of  this  machine  [1,2,8].  These  machines  are 
capable  of  producing  the  fabric  geometries  shown  in  Figure  2-5.  The 
different  knit  geometries  are  a  result  of  the  different  templates  used  for  the 
longitudinal  yarns.  The  two  different  template  structures  are  shown  in 
Figure  2-6.  These  templates  define  the  paths  of  two  of  the  three  constituent 
yarns.  In  the  first  geometry,  which  will  be  referred  to  as  XXYZ, 
circumferential  yams  are  laid  in  and  radial  yams  are  knitted.  The  radial 


Aerospatiale  XXYYZ  Geometry  [8] 


radial 


Aerospatiale  XXYZ  Geometry  [7] 


Figure  2-5 


XXYZ  Geometry  Template 
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Aerospatiale  Templates 
Figure  2-6 
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yarns  form  a  series  of  chain  stitches  on  the  outer  side  the  the  fabric.  In  the 
second  geometry,  XXYYZ,  two  seta  of  radial  yarns  form  chain  stitches  in 
different  directions  and  on  alternating  levels.  Both  these  geometries 
provide  high  tensile  and  shear  strength  in  all  directions.  The  XXYYZ 
geometry  is  more  flexible  as  a  result  of  the  substitution  of  a  second  radial 
knitting  yarn  for  the  circumferential  yarn. 

The  fabric  formation  process  used  for  each  geometry  is  slightly  different. 
This  paragraph  describes  the  formation  process  for  the  XXYZ  geometry  [7]. 
First  metallic  rods  are  inserted  in  the  template  in  the  longitudinal  yam 
position.  Then  the  radial  yarns  are  knitted  Ijy  an  hook-shaped  needle  which 
is  inserted  between  the  longitudinal  rods  and  the  circumferential  yams  are 
feed  into  circumferential  corridors.  The  apparatus  on  which  the  template 
is  set  rotates,  allowing  the  knitting  of  the  chain  stitches  and  the  laying 
down  of  the  circumferential  yarns.  After  each  layer  is  formed,  it  is 
compacted.  After  all  the  radial  and  circumferential  yarns  are  added,  the 
longitudinal  wire  rods  are  pushed  out  using  lacing  needles.  The  eye  of  both 
needles  then  hooks  a  yarn  strand  and  inserts  it  into  the  proper  longitudinal 
position. 

The  following  is  the  fabric  formation  process  for  the  XXYYZ  geometry  [8j. 
First  metallic  rods  are  inserted  in  the  template  in  the  longitudinal  yam 
position.  Then  the  two  radial  yams  are  knitted  by  hook-shaped  needles 
which  are  inserted  between  the  longitudinal  rods.  The  two  different  radial 
knitting  machines  move  around  the  template  structure.  After  each  layer  is 
formed,  it  is  compacted.  After  all  the  radial  yams  are  added,  the 
longitudinal  wire  rods  are  pushed  out  using  lacing  needles.  The  eye  of 
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each  needle  then  hooka  a  yarn  strand  and  inserts  it  into  the  proper 
longitudinal  position. 

Although  warp  knitting  is  the  most  popular  form  of  knitting  for  three 
dimensional  textile  structures,  Courtaulds  produces  a  modified  computer 
controlled  weft  knitting  machine  to  knit  three  dimensional  preforms  [36]. 
This  modification  allows  individual  needle  control.  This  control  is 
important  with  high  modulus  fibers.  The  brittle  nature  of  high  modulus 
fibers  cause  them  to  be  more  susceptible  to  breakage  with  variations  in 
tension.  The  individual  needle  control  maintain*  constant  tension  on  each 
yarn  during  the  knitting  process.  » 

Examples  of  the  complex  three  dimensional  shapes  that  can  be  knitted  with 
this  process  are  shown  in  Figure  2-7.  A  substantial  amount  of  the  fiber  lies 
in  a  loop  configuration.  Since  the  loop  configuration  is  comprised  of  so 
many  orientations,  this  configuration  is  similar  to  that  of  a  random  mat. 
Because  of  this  configuration,  these  fabrics  possess  moduli  comparable  to 
those  of  a  random  mat.  The  tensile  strength  of  these  fabrics  is  lower  than 
that  of  a  random  mat  [39].  The  key  advantage  of  this  structure  is  the  ability 
to  form  integral  structures  without  fiber  discontinuities  at  key  joints  in  the 
structure.  These  structures  are  three  dimensional  in  shape  but  their 
thickness  is  small. 

In  general,  because  of  the  toughness  needed  by  the  knitting  yarn,  there  are 
some  material  restrictions  on  this  yam.  With  the  weft  insert  warp  knits, 
the  knitting  yam  is  usually  a  polyester  yam  with  a  diameter  a  tenth  the 


Three  Dimensional  Shapes  Produced  by  Weft  Knitting  [39] 


Figure  2-7 


i 

I 


22 


size  of  the  weft  yarns.  The  presence  of  the  loop  make  knits  tougher  and 
more  comformable  to  complex  shapes. 

Braids 

Braids  are  formed  by  the  intertwining  of  yarns.  The  basic  braiding  method 
is  shown  in  Figure  2*8.  The  intertwining  is  accomplished  by  the  crossing  of 
yarns  on  individual  yam  carriers.  The  oldest  recorded  use  of  braiding  is 
between  1500  and  1000  B.C.  [12].  Although  this  technique  has  been  used 
since  prehistoric  times,  in  general,  it  has  never  been  as  popular  as  the 
other  textile  techniques.  One  of  the  factors  that  limited  the  use  of  braids  is 
that  the  braiding  machine  size  must  be  much  larger  than  the  actual  braid 
produced.  However  in  the  field  of  three  dimensional  textiles,  braiding 
techniques  are  becoming  very  popular.  This  popularity  is  a  result  of  their 
high  damage  tolerance,  delamination  resistance,  and  conformability. 

Three  dimensional  Euclidean  braiding  involves  the  steps  shown  in  Figure 
2.  This  sequence  can  be  performed  on  circular  or  rectangular  looms.  In 
this  process  yarns  gradually  move  through  the  thickness  of  the  fabric, 
through  alternate  track  and  column  motion.  Thus  the  yams  traverse  a 
circular  path  with  a  zig-zag  motion.  The  resultant  yam  path,  projected 
onto  the  braidplane,  of  one  yam  following  this  sequence  in  both  types  of 
looms  is  shown  in  Figure  2-10.  The  three  dimensional  path  of  one  yam  in 
an  Euclidean  braid  is  shown  in  Figure  2-11.  The  discrete  lattice  shown  in 
this  figure  is  used  to  locate  the  yam  in  the  braid.  The  presence  of  this 
lattice  has  generated  the  nomenclature.  Euclidean  braiding,  to  describe  the 
track/ column  braiding  process. 
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Basic  Braiding  Motion  [19] 


Figure  2-8 
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Track  Movement 


Loom  Motions  of  Eudidiean  Braiding 
Figure  2-9 


Isolated  Path  of  a  Single  Yam  in  a  3D  Braided  Fabric  [31] 


Figure  2-11 
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After  each  set  of  track  and  column  movements,  the  yarns  are  compacted. 
In  this  process  body  diagonal  yarn  pairs  resulting  from  a  track/column 
movement  are  compacted  against  body  diagonal  pairs  arising  from  the 
previous  track/column  motion.  The  compacting  motion  intertwines  the 
yarns.  The  braiding  process  just  mentioned  is  the  result  of  many 
developments  in  braiding  machine  technology.  The  following  paragraphs 
trace  the  development  of  three  dimensional  braiding  machines. 

This  first  patent  for  this  method  of  yarn  placement  was  granted  to  Bluck  in 
1969  [3].  Bluck's  machine  moved  the  tracks  and  columns  of  the  braiding 

m 

plane  with  cams  connected  by  gears  to  a  drive  shaft.  Each  yam  is  fed  into 
the  braiding  plane  through  holes  in  individual  yam  guides.  The  yam 
guides  move  in  the  braiding  sequence  as  mentioned  above.  The  speed  of 
braiding  is  controlled  by  takeoff  rollers  which  grip  the  fabric  a  certain 
distance  from  the  braiding  plane  and  pull  the  fabric  away  from  this  plane. 
A  schematic  of  this  machine  is  shown  in  Figure  2-12. 

In  1973  Maistre  patented  a  braiding  process  [27].  In  this  process,  the  yams 
are  attached  to  a  rigid  frame  which  arranges  the  yams  into  a  vertical  net. 
The  distance  between  the  yams  comprising  the  net  is  constant  in  the 
vertical  and  horizontal  directions.  In  Maistre's  machine  the  yam  feeding 
mechanism  is  not  in  the  braiding  plane  and  there  is  no  takeoff  roller. 
Braiding  occurs  as  a  result  of  the  alternate  displacement  of  the  row  and 
columns  of  the  yams.  Though  Maistre's  machine  differs  from  Bluck's  in 
the  yam  feeding  mechanism  and  the  absence  of  a  takeoff  roller,  the 
resultant  yam  path  of  both  machines  is  the 


Braiding  Plane 


Bluck's  Braiding  Apparatus  [3] 


Figure  2-12 
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In  1982  Florentine  improved  Bluck's  braiding  machine.  Florentine's 
machine  [13],  called  "Magnaweave",  uses  solenoids  to  move  the  yam 
carriers.  The  yam  carriers  are  properly  aligned  with  respect  to  each  other 
by  bar  magnets  on  the  yam  carrier.  Each  yam  carrier  contains  a  spool  of 
yam.  A  series  of  pins  to  beat  up  the  braided  fabric  are  added  between  the 
braiding  plane  and  the  takeoff  rollers.  These  pins  are  removed  during  each 
braiding  sequence  and  are  engaged  again  after  said  sequence. 

In  1986  Brown  [6]  addressed  the  problem  of  machine  jamming  in  the 
braiding  machine  of  Florentine.  Jamming  is  minimized  by  moving  a  track 
or  column  of  yarns  carriers  sequentially,  and  by  applying  a  tamping  stroke 
after  each  movement  to  insure  that  the  yam  carriers  are  in  their  proper 
place.  Brown's  yam  carrier  design  is  also  different.  In  Brown's  setup,  a 
finite  length  of  yam  is  attached  to  a  smaller  length  of  an  elastic  yam.  The 
looped  end  of  the  elastic  yam  is  attached  to  a  hook  on  the  yam  carrier. 

In  1988  Brown  [5]  modified  the  design  of  the  circular  braiding  machine  to 
allow  for  interchangeable  rings  of  the  same  diameter.  These  rings  replace 
the  concentric  rings  used  in  Florentine's  machine.  The  capacity  of  the 
machine  as  measured  by  the  number  of  rings  could  not  be  easily  expanded 
with  the  concentric  rings. 

Another  three  dimensional  braiding  process  is  the  Two  Step  Braid.  The 
Two  Step  Braid  was  patented  by  Popper  of  DuPont  in  1988  [29].  This 
apparatus  is  shown  in  Figure  2-13.  The  Two  Step  Braid  is  composed  of 
axial  and  braider  yarns.  The  axials  are  placed  in  the  fabric  forming 
direction  and  remain  approximately  straight  in  the  structure.  The 


Two-Step  Braid  Apparatus  [29] 


Figure  2-13 
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braiders  move  between  the  stationary  axials  in  a  special  pattern,  which 
cinches  the  axials  and  stabilizes  the  shape  of  the  braid.  The  path  of  one 
yam  during  a  braiding  sequence  is  shown  in  Figure  2-14.  The  zig-zag 
motion  of  a  yam  constitutes  one  sequence.  Although  the  resultant  yam 
path  is  the  same  for  the  Two  Step  Braid  as  for  the  other  three  dimensional 
braids  mentioned  above,  the  method  of  achieving  this  path  differs.  The  Two 
Step  Braid  path  differs  from  the  other  3D  braids  by  passing  each  braiding 
yam  through  the  whole  fabric  thickness  during  each  movement.  In  the 
Two  Step  process  a  smaller  number  of  braiding  sequences  is  needed  for  the 
yam  to  travel  back  to  its  initial  point  in  the  braiding  plane. 

m 

It  is  important  to  note  that  with  the  Euclidean  braiding  process,  non 
braiding  yams,  called  longitudinal  yams  can  be  positioned  between  the 
columns,  as  shown  in  Figure  2-15.  These  yams  are  subjected  only  to  a 
slight  zig-zag  motion  as  the  rows  move  back  and  forth.  The  effect  of  this 
zig-zag  motion  upon  the  straightness  of  the  longitudinal  yams  has  not  been 
examined.  These  yams  act  in  the  same  way  as  the  the  axial  yams  of  the 
Two  Step  Braid.  Since  the  longitudinal  yams  are  more  aligned  with  the 
fabric's  vertical  axis  than  the  braiding  yams,  these  yarns  increase  the 
tensile  strength  of  an  Euclidean  braid  in  this  direction.  The  normalized 
tensile  strength  of  3D  braids  with  and  without  axial  yams  is  compared  in 
Figure  2-16.  The  value  of  the  normalized  tensile  strength  is  determined  by 
dividing  the  tensile  strength  measured  by  the  number  of  yams  in  the  braid 
and  the  breaking  strength  of  a  constituent  yam. 

Figure  2-17  shows  the  effect  of  varying  the  braid  angle  of  both  braid  types. 
The  braid  angle  is  the  angle  a  braiding  yam  makes  with  the  vertical  axis  of 
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2-Step  Loom  Design 
Figure  2-14 
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Euclidean  Braid  Loom  Design  with  Longitudinal  Lay-ins 


Figure  2-15 


Figure  2-16 


Yam  Orientation  Angle  (degree) 


Normalized  Tensile  Strength  as  a  Function  of  Braid  Angle  [26] 


Figure  2-17 
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the  braid.  Though  the  tensile  strength  of  the  Two  Step  braid  is  greater  than 
that  of  a  Euclidean  braid  (with  no  longitudinal  yarns),  the  comformability 
and  compressability  of  a  Euclidean  braid  is  greater  than  that  of  the  Two 
Step  braid. 


Nonwovens 

Two  dimensional  nonwovens  are  formed  by  fiber  entanglements.  The 
means  of  entanglement  may  be  chemical  or  mechanical.  Nonwoven  felts 
are  considered  the  oldest  textile  structures  produced.  The  first  machine 
made  nonwoven,  paper,  was  made  in  1804  [37].  Today  nonwovens  form  the 
largest  percentage  of  the  two  dimensional  industrial  textile  market. 

The  simplest  three  dimensional  nonwoven  is  an  assembly  of  chopped  fiber. 
This  nonwoven  is  held  together  in  composite  form  by  the  matrix  material. 
Ideally  this  structure  is  the  most  isotropic  reinforcement  geometry.  But 
usually  the  resultant  fiber  orientation  is  skewed  to  favor  melt  flow  paths. 
This  deviation  is  a  result  of  the  fabricating  conditions  of  the  composite.  A 
composite  with  this  geometry  is  tough,  but  possesses  a  small  strength 
translation  efficiency.  The  fibers  act  as  crack  deflectors,  but  do  not  carry  a 
significant  part  of  the  load.  The  load  bearing  capacity  of  the  fibers  is 
increased  if  the  aspect  ratio  of  the  fibers  is  large.  As  the  length  of  the  fibers 
increases,  the  capacity  of  the  fiber  to  transfer  stress  along  this  dimension 
necessarily  increases. 

Three  dimensional  nonwovens  lay  ups  are  formed  from  continuous  yams. 
Thus  these  nonwovens  possess  a  high  strength  translation  efficiency. 
These  fabrics  differ  from  the  nonwovens  mentioned  before.  In  most  three 
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dimensional  nonwovens  the  constituent  yarns  are  laid  in  from  various 
directions  and  are  not  entangled.  These  nonwovens  form  stable  structures 
by  means  of  the  resultant  frictional  forces  between  fibers. 

In  1971  General  Electric  introduced  "Omni  weave"  [4]  In  this  non  woven  the 
path  of  the  yams  forming  the  fabric  is  straight  through  the  thickness 
direction.  When  a  yam  reaches  a  surface,  the  x-y  orientation  is  reversed. 
The  z  directional  motion  is  maintained.  A  three  directional  orthogonal 
placement  of  the  yarns  was  most  common  which  this  loom.  However  a 
four  directional  yam  placement  along  the  body  diagonals  of  a  parallelpiped 
unit  cell  can  also  be  achieved. 

In  1974  Fukuta  was  granted  a  patent  [14]  for  a  process  to  make  a  orthogonal 
three  dimensional  fabric.  Fukuta’s  apparatus  and  the  fabric  made  with 
this  machine  is  shown  in  Figure  2-18.  The  yams  in  the  y  direction  are 
fixed.  A  yam  inserted  in  the  xy  plane  follows  the  path  shown  in  Figure  2- 
19.  P  is  a  binder  yam  which  maintains  the  two  yam  diameter  distance 
between  the  z  yams  in  the  y  direction.  A  new  set  of  z  yams  is  inserted  after 
each  x  yam.  A  set  of  z  yams  is  inserted  by  the  simultaneous  lowering  of 
the  z  curved  arm  and  raising  of  the  z  curved  arm. 

In  1976  Crawford  [9]  was  granted  a  patent  for  a  method  of  laying  in  yams 
from  various  directions.  The  different  yam  geometries  formed  by  this 
process  are  shown  in  Figure  2-20.  These  geometries  differ  from  that  of  the 
other  3D  nonwovens  through  the  combinations  of  orthogonal  and  diagonal 
yarns  lay-ins. 


Fukuta's  Nonwoven  Apparatus  [14] 


Figure  2-18 


Crawford's  Nonwoven  Geometries  [9] 


Figure  2-20 
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In  1977  King  was  granted  a  patent  for  a  three  dimensional  orthogonal 
rectangular  and  circular  loom  [18].  These  looms  and  the  resultant  fabric 
geometries  are  shown  in  Figure  2-21.  The  rectangular  loom  creates  a 
fabric  with  a  distance  of  one  yam  diameter  between  adjacent  parallel 
yams.  The  circular  loom  creates  a  fabric  with  a  distance  of  two  yam 
diameters  between  adjacent  yams  in  one  direction  and  a  distance  of  one 
yam  diameter  between  parallel  yams  in  the  orthogonal  direction.  The 
rectangular  loom  can  be  easily  adjusted  so  that  the  x  and  y  yams  are  fed  in 
at  an  angle. 

In  1978  Kallmeyer  invented  a  three  dimensional  orthogonal  nonwoven 
rectangular  loom  [16].  The  operation  sequence  of  this  loom  is  diagramed  in 
Figure  2-22.  In  this  process  a  shed  is  created  at  the  center  row  of  the  z 
array.  Then  a  x  yarn  is  added.  The  shed  is  closed.  Two  adjacent  sheds  are 
then  opened.  The  first  x  yarn  is  doubled  back  through  the  adjacent  shed. 
An  additional  x  yam  is  inserted  through  the  other  shed.  The  two  sheds  are 
closed.  Then  two  additional  adjacent  sheds  open.  This  process  continues 
until  a  x  yam  is  inserted  through  all  the  z  rows.  At  this  point  the  loom  is 
rotated  ninety  degrees  and  the  above  process  is  carried  out  with  y  yams. 

"Autoweave"  [35]  is  another  circular  three  dimensional  nonwoven 
machine.  In  this  apparatus  a  prepreg  cable  is  simultaneously  cut  and 
inserted  into  a  foam  mandrel,  known  as  a  porcupine,  normal  to  its  surface. 
These  radial  rods  form  helical  corridors.  Axial  yams  are  fed  by  a  shuttle 
which  loops  the  axial  yam  around  the  crown  at  each  end  of  the  mandrel 
before  passing  through  the  next  corridor.  The  circumferential  yams  are 
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Figure  2-21 
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tensioned  and  fed  into  the  radial  corridors  by  a  shuttle.  This  process  can  be 
adapted  for  four  and  five  directional  yam  lay  ins. 

Of  the  processes  mentioned  above  the  Autoweave  process  is  the  most  flexible 
and  rapid.  These  structures  possess  high  strength  and  moduli  in  the 
direction  of  fiber  reinforcement.  However  these  structures  are  not  as 
conformable  as  other  structures  such  as  the  3D  braids. 

Another  type  of  three  dimensional  nonwoven,  called  Noveltex  [15],  is  a 
modification  of  needle  punch  technology.  In  this  process  a  roll  of  a  2D 
fabric  is  placed  under  needles  which  pierce  thg  fabric.  The  needles  pierce 
through  one  to  two  2D  fabric  layers.  More  2D  fabric  from  the  same  roll  is 
then  placed  under  the  needles.  In  this  way  a  thick  fabric  with  some 
orientation  in  the  through  thickness  direction  is  formed.  This  orientation 
hinders  delamination.  The  resultant  three  dimensional  fabric  possesses 
high  compressive  and  shear  strength.  However  the  fabric's  tensile  and 
flexural  strength  is  lower  than  the  other  continuous  fiber  three  mentioned 
before. 

Many  of  the  nonwoven  fabrication  processes  described  in  this  section  form 
similar  unit  cells.  The  orthogonal  nonwoven  structures  of  the  Omniweave, 
King's  rectangular  loom,  Autoweave,  and  Kallmeyer  processes  will  be 
henceforth  referred  to  as  XYZ  nonwovens.  The  orthogonal  nonwovens  of 
Fukuta  and  King's  circular  loom  will  be  referred  to  as  XXYZ  nonwovens. 
This  structure  is  similar  to  a  XYZ  nonwoven  composed  of  x  yams  which 
possess  a  cross-sectional  area  that  is  twice  the  size  of  the  other  constituent 
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Woven  s 

Woven  fabrics  are  formed  by  yam  interlacing.  The  weaving  process 
consists  of  three  basic  steps.  This  process  is  shown  in  Figure  2-23.  The 
first  step  is  called  shedding.  Shedding  is  the  separation  of  warp  yams  (the 
set  of  yams  in  the  machine  direction)  into  top  and  bottom  sheets.  In  the 
next  step,  weft  insertion,  a  weft  yam  (set  of  yams  not  in  the  machine 
direction)  is  inserted  between  the  two  sheets.  The  final  step  is  the 
compacting  of  the  weft  yam,  in  which  a  reed  forces  the  weft  yam  tightly 
into  the  shed  of  the  fabric.  When  this  process  is  repeated,  the  position  of  at 
least  some  of  the  warp  yams  forming  thfi  two  sheets  is  reversed.  The 
reversal  of  the  warp  yams  creates  a  sinusoidal  path  for  these  yams.  The 
actual  length  of  the  curved  yam  divided  by  the  net  distance  traveled,  is 
known  as  the  crimp  of  the  fabric. 

The  earliest  evidence  of  the  use  of  a  loom  was  in  Egypt  at  4400  B.C.  [12].  By 
the  13th  century  the  standard  horizontal  loom  design,  which  is  still  used, 
had  evolved.  This  loom  was  automated  in  a  series  of  steps  during  the  18  th 
century.  For  intricate  weaves  a  draw  loom  is  used.  A  draw  loom  possesses 
cords  attached  to  the  warp  yams.  These  cords  allow  for  more  control  in 
forming  the  upper  and  lower  sheet  in  the  shedding  process.  In  1805 
Jacquard  introduced  a  draw  loom  with  an  automatic  shedding  device  [12). 
Ever  since  this  time,  a  loom  which  allows  for  custom  tailoring  of  each  warp 
yam  motion  is  called  a  Jaquard  loom. 

Adaptations  are  made  to  two  dimensional  weaving  techniques  when  used 
for  engineering  applications  [10].  For  engineering  applications  a 


Shedding 


Weft  Insertion 


Compacting 


The  Basic  Weaving  Sequence  [12] 


Figure  2-23 
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minimum  amount  of  crimp  is  desired.  The  greater  the  amount  of  crimp, 
the  greater  the  magnitude  of  the  components  of  the  fiber  position  vector  not 
aligned  with  the  fabric  axis.  This  misalignment  leads  to  diminished 
strength.  Crimp  is  minimized  by  using  weaving  techniques  such  as  the 
satin  weave.  In  Figure  2-24  a  five  harness  satin  and  a  plain  weave  are 
shown.  Note  the  number  of  interfacings  is  smaller  in  the  satin  weave.  A 
lower  number  of  interfacings  in  a  fabric  results  in  a  smaller  amount  of 
crimp. 

Crimp  also  needs  to  be  minimized  since  the  high  modulus  yams  typical  of 
engineering  applications  possess  a  large  critical  bending  radius.  The 
critical  bending  radius  is  inversely  proportional  to  the  amount  of  curvature 
a  yarn  can  maintain  without  breaking.  Special  high  modulus  weaves  are 
available  which  avoid  this  problem  by  keeping  the  high  modulus  yarns 
straight  and  performing  the  actual  weaving  with  a  low  modulus  yarn 
possessing  a  much  smaller  cross-sectional  area. 

There  are  two  forms  of  three  dimensional  weaves.  In  the  first  form,  a  thin 
fabric  is  woven  in  such  a  way  as  to  obtain  a  three  dimensional  form.  This 
form  of  three  dimensional  weaving  is  shown  in  Figure  2-25.  The  second 
form  of  three  dimensional  weaving  results  in  the  formation  of  a  fabric  of 
substantial  thickness.  It  is  this  form  of  weaving  that  is  addressed  in  the 
following  paragraphs. 

A  weave  geometry  for  thick  fabrics  is  mentioned  in  Rheaume's  1973  patent 
[34].  This  geometry  is  shown  in  Figure  2-26.  This  figure  is  a  schematic  of 
the  weave’s  geometry  normal  and  parallel  to  the  warp  yam  plane.  The 


weaving  of  the  warp  yams  is  controlled  by  a  series  of  Jaquard  heads.  This 
three  dimensional  geometry  is  created  by  adding  a  web  yarn  in  the  through 
thickness  direction.  Although  in  this  patent  the  web  yams  transverse  the 
fabric  thickness,  thick  weaves  are  also  made  with  not  all  layers  being 
transversed.  Using  web  yams  fabrics  up  to  seventeen  layers  thick  have 
been  woven.  There  is  no  inherent  limit  to  the  thickness  of  these  weaves. 
The  current  limit  is  a  result  of  the  machinery  currently  available.  These 
fabrics  are  produced  by  companies  such  as  Textile  Technologies  in  Hatboro, 
Pa  and  Woven  Structures  in  Compton,  Ca. 

An  apparatus  for  creating  thick  weaves  was  *pa tented  by  Emerson  in  1973 
[11].  Emerson's  machine  is  a  circular  loom  controlled  by  a  plurality  of 
Jacquard  heads.  These  heads  control  the  placement  of  stuffer  and  locker 
warp  yams  (analogous  x>  the  web  yams  mentioned  above).  There  is  also  a 
filler  yam  system  which  follows  an  helical  path.  Insertion  of  the  filler 
yams  is  controlled  by  an  inserter  which  moves  around  the  mandrel.  The 
stuffer  yams  are  parallel  to  the  mandrel  axis.  The  locker  yams  follow  a 
sinusoidal  path  around  the  stuffer  and  filler  yams.  This  path  is  in  the 
radial  direction  with  respect  to  the  mandrel  axis.  A  fabric  compactor 
comprised  of  a  perforated  plate  compacts  the  fabric  after  each  filler  yam 
insertion.  Possible  weave  geometries  resulting  from  this  machine  are 
shown  in  Figure  2-27.  The  complexity  of  this  machine  leads  to  problems  in 
fabrication  and  as  a  result  this  process  is  not  currently  popular. 


XY  Plane  of  an  Alternative  Weave  Geometry 


XY  Plane  of  an  Orthogonal  Weave 


Weave  Geometries  Possible  with  Emerson's  Apparatus  [11] 


Figure  2-27 
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CHAPTER  THREE 

SYMMETRY  OF  THREE  DIMENSIONAL  FIBER  ARCHITECTURES 


Introduction 

Since  the  interior  unit  cells  of  many  fabric  structures  from  different  textile 
classes  possess  the  same  elements  of  symmetry,  a  classification  system 
based  on  these  symmetry  elements  has  been  developed.  This  chapter  will 
explain  the  underlying  principles  of  symmetry  used  to  develop  this  model. 
The  symmetry  present  in  the  three  dimensional  fiber  architectures 
mentioned  in  chapter  two  will  be  explained.  Additionally,  the  performance 
properties  of  fiber  architectures  can  be  modelled  by  utilizing  the  different 
elastic  strain  energy  expressions  produced  by  different  combinations  of 
symmetry  elements. 


Symmetry  in  Materials 

The  symmetry  concepts  employed  in  the  description  of  the  various  textile 
structures  are  adapted  from  the  field  of  crystallography.  There  are  three 
basic  type  of  operations  used  to  determine  symmetry.  These  operations  are: 
rotation  about  an  axis,  reflection  in  a  plane,  and  rotoinversion  (rotation 
followed  by  reflection).  A  material  is  symmetric  under  one  of  the  above 
operations  if  it  appears  as  it  did  initially  after  a  symmetry  operation. 
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A  restriction  is  placed  on  the  allowable  types  of  rotation  operations.  This 
restriction  is  that  rotation  operations  must  be  performed  in  such  a  manner 
that  the  translational  symmetry  of  the  material  is  maintained. 
Translational  symmetry  is  maintained  when  the  distance  between  adjacent 
lattice  sites  remains  constant.  Besides  a  rotation  of  360  degrees,  this 
symmetry  can  only  be  maintained  with  rotations  of  60,  90,  120,  and  180 
degrees  about  a  symmetry  axis.  The  rotational  symmetries  corresponding 
to  the  above  rotations  are  hexad,  tetrad,  triad,  and  diad  respectively. 

For  a  three  dimensional  object,  the  symmetry  operations  about  three 
mutually  orthogonal  axes  must  be  coherent.  -When  coherence  is  achieved, 
a  combination  of  a  symmetry  operation  on  one  axis  followed  by  an  operation 
on  a  second  axis  is  equivalent  to  one  operation  about  the  third  axis.  There 
are  32  combinations  of  symmetry  elements  for  three  dimensional  figures 
which  satisfy  this  requirement.  These  combinations  are  referred  to  as  the 
32  crystallographic  point  groups.  When  these  operations  are  performed, 
the  position  of  only  one  point,  the  point  though  which  they  pass,  is 
unmoved. 

These  point  groups  are  usually  diagrammed  on  stereograms.  Stereograms 
are  two  dimensional  representations  of  a  three  dimensional  body.  Figure 
3-1  diagrams  a  stereogram  with  the  z  axis  normal  to  the  stereograph  plane 
and  intersecting  said  plane  at  the  center  of  the  stereogram.  Figure  3-2 
(adapted  from  [17]  )  diagrams  the  different  positions  of  a  point  is  it 
undergoes  different  symmetry  operations.  Figure  3-2a  represents  a 
rotation  of  360  degrees  about  the  z  axis  (central  point  on  stereogram). 
Figure  3-2b  to  e  represents  a  diad  axis,  traid  axis,  tetrad  axis,  and  an  hexad 


Schematic  of  the  Components  of  a  Stereogram 


(equivalent  to  center) 

h 


(equivalent  to  m) 

i 


Symmetry  Operations 
Figure  3-2 
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axis,  respectively.  A  reflection  through  a  mirror  plane  along  the  x  axis  is 
shown  in  figure  3.2f.  A  reflection  through  a  mirror  plane  in  the  xy  plane  is 
shown  in  figure  3.2g.  Figure  3.2h  is  a  rotoinversion  operation  consisting  of 
a  rotation  of  360  degrees  followed  by  inversion  through  the  center  of  the 
sphere  of  projection.  The  effect  of  the  other  rotoinversion  operations  is 
shown  in  Figures  3-2i,  j,  and  k. 

Figure  3-3  (adapted  from  [17]  )  diagrams  the  32  possible  point  groups. 
These  point  groups  are  classified  by  the  shape  of  the  unit  cell  in  which  they 
occur.  Each  unit  cell  class  is  ordered  in  terms  of  increasing  symmetry. 
The  state  of  highest  symmetry  for  a  certain  class  is  known  as  the 
holosymmetric  state.  The  different  criteria  for  classifying  these  unit  cells 
and  the  shape  of  these  unit  cells  is  given  in  Table  3-1.  The  lattice 
parameters  a,  b,  and  c  correspond  to  the  length  of  the  unit  cell  in  the  x,  y, 
and  z  directions,  respectively.  The  directional  cosines  are  denoted  by  angles 
a,  p,  and  y. 


Symmetry  Elements  in  3D  Fiber  Architectures 
The  symmetry  considerations  described  above  were  devised  for  materials 
with  symmetric  atomic  structure.  The  textile  structures  described  here 
consist  of  continuous  lengths  of  yam  oriented  in  various  directions  with 
respect  to  one  another.  When  the  these  yams  intersect,  they  offset  each 
other  in  space.  This  offset  will  be  ignored  when  describing  the  symmetry 
elements  present  in  the  3D  fiber  architectures.  The  area  of  the  yam's 
intersection  is  reduced  to  a  point  when  performing  symmetry  operations. 
A  schematic  of  a  yam  intersection  before  and  after  the  above  simplification 
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System 

Symmetry 

Conventional  Cell 

Triclinic 

No  axes  of  symmetry 

a*b*c: 

Monclinic 

One  Diad 

0=7=90° 

Orthorhombic 

Three  Orthogonal  Perpendicular  Diads 

a*b*c:  a=(l=7-=90o 

Trigonal 

One  Triad 

a=b=c  o=P=t<1200 

Tetragonal 

One  Tetrad 

a=b*c  a=fl=y=90“ 

Hexagonal 

One  Hexad 

a=bj«c:  a=(5=90°,7=120° 

Cubic 

Four  Triads 

a=b=c:  a=f5=Y=90° 

Crystallographic  Unit  Cells  (adapted  from  [17]  ) 
Table  3-1 


Monoclinic 
(1st  Setting) 


Triclinic 


Tetragonal 


Stereograms  of  the  32  Symmetry  Point  Groups 
(  adapted  from  [17] ) 

Figure  3-3 


Stereograms  of  the  32  Symmetry  Point  Groups 
(adapted  from  [17] ) 

Figure  3-3 


61 


is  shown  in  Figure  3-4.  Other  assumptions  concerning  the  geometry  of  the 
yarns  that  have  been  made  are:  the  yams  possess  a  circular  cross-sectional 
area,  and  in  the  limit  of  the  lattice  parameter  scale  the  yarns  are  linear. 
There  are  additional  simplifying  assumptions  that  must  be  made  to 
generate  rectilinear  unit  cells  for  fabrics  formed  on  circular  looms.  Since 
the  lattice  parameter  of  each  unit  cell  is  on  the  order  of  the  distance  between 
two  parallel  yarns,  the  circumferential  yarns  were  approximated  to  be 
linear.  As  the  distance  between  interlacings  increases,  the  curvature  of  the 
circumferential  yams  increases  and  this  approximation  cannot  be  used. 
Another  assumption  is  that  the  difference  in  distance  between  z  yams  in 
the  adjacent  concentric  rings  is  insignificant. 

Utilizing  the  above  assumptions,  numerous  textile  structures  possess 
holosymmetric  cubic  symmetry.  This  symmetry  state  is  found  in  certain 
three  dimensional  braids,  nonwovens,  and  knits.  An  Euclidean  braid  with 
100%  braiding  yams  and  the  fourfold  body  diagonal  lay-in  architecture  of 
the  Omniweave  with  a  yam  orientation  angle  of  45  degrees  with  respect  to 
three  orthogonal  axes,  possesses  this  symmetry.  This  symmetry  is  also 
possessed  by  the  XYZ  geometries  of  Omniweave,  King's  nonwoven, 
Kallmeyer's  nonwoven,  the  thick  weave  with  a  web  angle  of  0°,  and 
Autoweave  when  all  the  constituent  yams  possess  similar  circular  cross- 
sectional  areas  and  are  therefore  equidistant. 

There  are  a  number  of  symmetry  elements  in  the  holosymmetric  cubic 
state.  The  simplified  unit  cell  of  these  two  geometry  types  and  their  point 
group  symmetry  is  shown  in  Figure  3-5.  The  position  of  some  of  these 
symmetry  elements  is  projected  onto  the  cubic  unit  cell  in  Figure  3-6. 


Schematic  of  Yarn  Intersection, Simplification 


Simplified  Unit  Cell  for 
Body  Diagonal  Geometries 


Simplified  Unit  Cell  for 
XYZ  Geometries 


m3m 


m3m  Symmetry  Shown  by  Above  Unit  Cells 


Figure  3-5 
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The  addition  of  two  orthogonal  lateral  lay-in  yams  in  the  xy  plane  to  the 
unit  cell  of  an  Euclidean  braid  comprised  of  100%  braiding  yams  100% 
reduces  the  x  and  y  tetrad  axis  of  symmetry  to  a  diad  axis,  and  also  destroys 
all  triad  axis  of  symmetry.  This  unit  cell  possesses  holosymmetric 
tetrahedral  symmetry.  This  symmetry  state  also  occurs  with  a  two-step 
braid  possessing  equal  a  and  b  lattice  parameters,  with  the  body  diagonal 
geometries  possessing  a  braid  angle  not  equal  to  45°  in  one  of  the  orthogonal 
planes,  and  with  the  XXYYZ  Aerospatiale  geometry.  The  4/mmm 
symmetry  corresponding  to  this  state  and  the  unit  cell  of  these  geometries 
is  shown  in  Figure  3-7. 

Another  common  symmetry  type  is  mmm,  which  is  the  holosymmetric 
symmetry  state  of  an  orthorhombic  unit  cell.  This  symmetry  state  is 
possessed  by:  Crawford's  nonwovens.  Euclidean  braids  with  one  lateral  or 
longitudinal  lay-in,  body  diagonal  geometries  with  the  braid  angle  not  equal 
to  45°  in  all  orthogonal  planes,  a  Two-Step  braid  with  unequal  lattice 
parameters,  and  the  XXYZ  fiber  architectures  of  Aerospatiale,  King,  and 
Fukuta.  Crawford's  nonwovens  possess  this  symmetry  state  since  the 
combination  of  three  orthogonal  and  either  four  or  eight  diagonal  yams 
reduces  all  symmetry  axes  to  diads.  The  XXYZ  fiber  architectures  are 
mmm  since  the  presence  of  two  x  yarns  for  every  unit  cell  destroys  all 
tetrad  and  triad  axes  of  symmetry.  The  highest  axis  of  symmetry  for  the 
holosymmetric  orthorhombic  geometry  is  diad.  The  unit  cells  of  fiber 
architectures  possessing  this  symmetry  and  the  projection  of  the  mmm 
point  group  onto  an  orthorhombic  cell  is  shown  in  Figure  3-8 


3D  Braid  with  Longitudinal 
Lay-in 


XXYZ  Geometry 


mmm  Symmetry  Elements  shown  in  relationship  to  the 
xz  plane  of  an  orthorhombic  unit  cell 
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The  remaining  textile  structures  do  not  possess  three  dimensional 
symmetry.  Although  there  is  through  thickness  fiber  integration,  the  unit 
cell  shape  of  these  structures  is  similar  to  that  of  a  laminate.  Like 
laminates,  these  structures  possess  symmetry  in  the  xy  plane,  not  in  the 
through  thickness  planes. 


The  Effect  of  Symmetry  on  the  Elastic  Stiffness  Matrix 
The  elastic  stiffness  matrix  describes  the  relationship  between  strain  and 
stress  in  a  material  at  a  specific  point.  The  theory  of  elasticity  governs  the 
creation  of  the  stiffness  matrix.  The  assumptions  made  in  the  theory  of 
elasticity  are:  the  body  is  a  continuous  medium,  strains  experienced  by  said 
body  are  small,  the  stress/strain  relationship  is  linear,  initial  stresses  are 
ignored,  and  deformation  is  reversible. 


Strain  is  a  measure  of  the  deformation  experienced  by  a  body.  The  strain 
state  of  a  point  can  be  expressed  as  a  second  order  tensor.  The  components 
of  this  tensor  are  shown  below. 


eij 


f  Exx  Exy  Exz  \ 


Eyx  Eyy  Eyz 


(3-1) 
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CHAPTER  FOUR 

GEOMETRIC  MODELLING  OF  3D  FIBER  ARCHITECTURES 

Introduction 

In  this  chapter  the  unit  cell  geometries  of  various  3D  fiber  architectures  are 
modelled.  In  all  the  models  the  yarns  are  assumed  to  be  incompressible 
and  to  possess  a  circular  cross-sectional  area.  Except  where  noted,  all 
yarns  comprising  the  fiber  architectures  are  identical.  The  effect  of 
varying  geometric  parameters  on  the  fiber  volume  fraction  is  studied.  Also 
the  percent  fiber  volume  fraction  in  different  fiber  orientations  is  stated. 
The  effective  volume  of  fiber  oriented  towards  an  arbitrary  angle  is  given  for 
each  fiber  architecture. 


Multiaxial  Warp  Knits 

The  MWK  possesses  an  orthogonal  unit  cell.  The  a  and  b  parameters  of  a 
MWK  unit  cell  are  shown  in  Figure  4-1.  In  this  figure,  the  dashed  box 
contains  the  ab  plane  of  one  unit  cell.  The  length  of  the  a  parameter  is 
equivalent  to  the  distance  between  the  centers  of  two  adjacent  orthogonal 
yams  in  the  x  direction.  The  length  of  the  b  parameter  is  equivalent  to  the 
distance  between  the  centers  of  two  adjacent  orthogonal  yams  in  the  y 
direction. 


The  Unit  Cell  of  a  Multiaxial  Warp  Knit 


Figure  4-1 
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The  circles  in  each  unit  cell  in  Figure  4.1  represent  the  intersection  of  the 
knitting  yams  with  the  ab  plane.  The  knitting  yam  is  assumed  to  have  a 
cross-sectional  area  one  tenth  the  size  of  the  lay-in  yams.  The  shape  of 
each  knitted  loop  completed  by  the  knitting  yam  is  modelled  as  an  ellipse. 
Figure  4.2  shows  the  relationship  of  the  geometric  parameters  of  the 
knitting  yam  ellipse  to  the  MWK  unit  cell.  As  shown  in  Figure  4.1,  there 
are  four  spots  in  each  unit  cell  where  a  knitting  yams  intersects  with  the  ab 
plane.  The  three  dimensional  shape  represented  by  each  circle  in  the  unit 
cell  is  one-half  of  an  ellipse.  Thus  there  are  two  knitting  yam  ellipses  in 
each  unit  cell.  The  length  of  knitting  yam  in  the  unit  cell  is  equal  to  the 
circumference  of  two  ellipses.  The  circumference  of  an  ellipse  is  equal  to: 


7l/2 


eJ"V  1-  e2si 


C  =  4ae  N  I*  e2sin24>d<j>  =  2jta*(  1-  0.25e2  -  ,047e4) 


3e 


(4-1) 


Each  MWK  cell  consists  of  yarn  lay-ins  in  the  x,  y,  and  +/-  0  directions. 
The  c  parameter  of  the  MWK  unit  cell  is  equivalent  to  4D  +  K.  D  is  defined 
as  the  diameter  of  the  lay-in  yams  and  K  is  defined  as  the  diameter  of  the 
knitting  yarn.  This  distance  results  from  the  four  lay-ins,  and  the  one-half 
diameter  of  the  knitting  yam  on  the  top  and  bottom  of  the  unit  cell. 


The  length  of  the  a  parameter  of  the  MWK  unit  cell  is  D  +  S,  where  S  is  the 
distance  between  yams  of  like  orientations.  The  length  of  b  depends  on  the 
angle  of  the  bias  yarns.  If  0  is  45°,  b  =  a.  When  0  is  not  45°,  b  =  (D  +S)tan0. 
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The  two  angled  lay-ins  each  possess  a  length  of  La  =  a/cos8  =  (D  +  S)/cos8. 
The  fiber  volume  fraction  of  yam  in  the  unit  cell  is  equal  to: 


Vf  = 


x  jtD2  xK2 

(a  +  b  +  2La)— —  +  2C 


abc 


(4-2) 


tcK2 


where  is  the  cross-sectional  area  of  a  yam 


with  diameter  K 


The  fiber  volume  fraction  of  yam  in  the  unit  cell  is  the  volume  of  yarn  in  the 
unit  cell  divided  by  the  unit  cell  volume.  The  volume  of  a  MWK  unit  cell  is 
the  product  of  the  three  unit  cell  parameters.  ' 


The  effect  of  varying  the  angle  of  the  angled  lay-ins  on  the  fiber  volume 
fraction  is  plotted  in  Figure  4-3.  In  this  plot,  the  space  between  adjacent 
yarns  in  the  x  direction  is  assumed  to  be  one  yam  diameter  and  the 
diameter  of  the  knitting  yam  is  assumed  to  be  one-tenth  that  of  the  lay-in 
yarns.  The  fiber  volume  fraction  increases  rapidly  after  45°.  This  increase 
is  a  result  of  the  a  parameter  being  greater  than  the  b  parameter.  In  this 
region  of  the  curve  the  space  between  yams  in  the  b  direction  is  decreasing. 
Varying  the  angle  of  the  bias  yam  changes  the  fiber  volume  significantly. 


Figure  4-4  plots  the  effect  of  varying  the  distance  between  the  yams  in  the 
closest-packed  direction.  The  dependence  of  fiber  volume  fraction  on  the 
distance  between  closest-packed  yams  is  harmonic.  The  fiber  volume 
fraction  between  two  integral  S  values  approximately  decreases  by  (1/(Sh+1) 
with  Sh  being  the  higher  S  value.  The  biggest  reduction  in  fiber  volume 


Fiber  Volume  Fraction 
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Bias  Yarn  Orientation 


Dependence  of  the  Fiber  Volume  Fraction  of  a  Multiaxial  Warp  Knit 

on  Bias  Yam  Oriention 
Figure  4-3 


fraction,  50%,  occurs  in  the  region  of  zero  to  one  yam  diameter  of  space 
between  the  closest-packed  yams. 


The  effect  of  assuming  a  different  relative  diameter  of  the  knitting  yam  to 
that  of  the  lay-in  yams  for  a  MWK  with  6  =  45°  is  shown  in  Figure  4-5. 
Varying  K  by  an  order  of  magnitude  of  ten  changes  the  fiber  volume 
fraction  by  11%. 


Orthogonal  Fiber  Architectures 

XYZ  Geometry 

In  this  section  the  XYZ,  XXYYZ  and  the  XXYZ  orthogonal  geometries  will 
be  discussed.  The  XYZ  geometry  possesses  a  cubic  unit  cell.  The  geometry 
of  each  <100>  plane  in  this  cell  is  shown  in  Figure  4-6.  As  shown  in  this 
figure,  the  unit  cell  parameters  are  equal  to  2D,  where  D  is  the  diameter  of 
the  constituent  yarns.  The  fiber  volume  fraction  of  the  XYZ  geometry 
equals: 


3(2DX*D2/4) 

Vf=  - —j - = 


0.59 


(4-3) 


XXYZ  Geometry 

The  second  type  of  orthogonal  yarn  geometry,  XXYZ,  possesses  a 
tetrahedral  unit  cell.  The  (100)  plane  of  an  unit  cell  with  this  fiber 
architecture  is  shown  in  Figure  4-7.  This  cell  differs  from  the  unit  cell  of 
the  other  orthogonal  geometry  by  the  presence  of  two  x  direction  yams  in 
each  cell.  This  presence  causes  the  lattice  parameter  a  to  equal  3D.  Since 


Diameter  (in  units  of  D) 


Dependence  of  the  Fiber  Volume  Fraction  of  a  Multiaxial  Warp  Knit 
on  the  Relative  Difference  Between  the  Diameters  of  the  Knitting 
Yam  and  the  Lay-in  Yams 
Figure  4-5 
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the  other  lattice  parameters  are  not  effected  by  the  second  x  yam,  they 
remain  2D.  The  fiber  volume  fraction  for  this  cell  is  the  same  as  with  the 
XYZ  geometry.  The  expression  for  this  value  is: 


(4+3+2)  ~r- 

Vf  =  9pyi  =  0.59  (4-4) 

XXYYZ  Geometry 

The  final  type  of  orthogonal  yam  geometry  is  XXYYZ.  This  geometry  is 
similar  to  the  XYZ  geometry  depicted  in  Figure  4-6  except  here  the  full 
diameter  of  the  x  and  y  yams  is  included  in  each  unit  cell  edge.  Thus  a  =  b 
=  3D  while  z  remains  2D  and  there  are  two  x  and  y  yams  per  unit  cell. 


Vf 


(6+6+2)  ■ 


xD3 


ISEff- 


=  0.61 


(4-5) 


Body  Diagonal  Geometries 

In  this  section  the  similar  unit  cells  of  3D  braids  with  100%  braiding  yams, 
and  the  4  directional  lay-in  Omniweave  are  discussed.  These  unit  cells  are, 
in  general,  orthogonal.  For  the  3D  braid  an  important  consideration  in 
determining  the  unit  cell  parameters  is  the  process  by  which  the  braid  is 
formed.  In  Figure  4-8  the  unit  cell  of  a  3D  braid  wit,’,  a  45°  braid  angle  is 
shown  along  with  the  track  and  column  movements  necessary  to  form  this 
unit  cell.  The  compacting  action  drastically  alters  this  unit  cell.  This 
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action  compacts  the  bottom  body  diagonal  pair  against  the  top  body  diagonal 
pair,  pulls  the  eight  comer  loops  out  of  this  unit  cell  into  adjacent  unit 
cells,  and  both  inverses  as  well  as  reduces  the  amount  of  curvature  present 
in  the  constituent  yams.  The  resultant  unit  cell  is  shown  in  Figure  4-9. 
The  offset  of  the  two  body  diagonal  pairs  in  the  xy  plane  is  the  result  of 
subsequent  track  and  column  motions.  The  unit  cells  of  the  Omniweave 
are  determined  by  the  direction  of  the  lay-ins.  The  simplified  unit  cells 
shown  in  Figure  4-10  will  be  used  to  describe  the  body  diagonal  geometries. 

The  total  length  of  yam  in  each  unit  cell  is  four  times  the  length  of  the  body 
diagonal  in  that  cell.  In  this  model  we  will  also  assume  that  the  unit  cell  is 
tetragonal.  This  is  the  case  when  the  braiding  motion  is  an  one  by  one 
track  and  column  movement  and  the  constituent  yams  possess  a  circular 
cross-sectional  area.  For  the  tetragonal  unit  cell  a  is  equal  to  b  but  is  not 
equal  to  c.  c  can  be  described  as 


c  =  a  tanQ  (4-6) 

0  is  the  angle  of  the  side  face  diagonal,  which  is  equal  to  the  compliment  of 
the  braid  angle. 

The  length  of  a  body  diagonal  in  this  unit  cell  is: 

Lb  =  V  2a2  +  a2tan0  (4-7) 
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Euclidean  Braid  Unit  Cell  After  Compacting 
Depicting  the  Effect  of  Subsequent  Column  Movement 
on  the  Relative  Position  of  the  Two  Body  Diagonal  Pairs 


I 


Simplified  Euclidean  Braid  Unit  Cell 


Figure  4-10 


The  fiber  volume  fraction  is  equal  to: 


Vf  = 


V  2+tan28  ttD2 
a2  tanQ 


(4-8) 


Since  there  is  no  close  packed  direction  in  this  unit  cell,  there  is  no  absolute 
relationship  between  the  constituent  yam  diameter  and  the  lattice 
parameters.  Figure  4-11  plots  the  effect  of  varying*  a  in  units  of  D  on  the 
fiber  volume  fraction  with  a  braid  angle  of  30°.  The  form  of  this  function  is 
Vf(a)  =  T/a2,  where  T  is  a  constant.  As  the  braid  angle  is  increased,  T 
increases  and  subsequently  Vf(a)  increases  for  a  specific  a  value. 

Figure  4-12  plots  the  effect  of  varying  the  braid  angle  on  the  fiber  volume 
fraction  with  the  parameter  a  equal  to  3D.  The  fiber  volume  fraction 
steadily  increases  as  the  braid  angle  is  increased.  The  increase  in  the 
value  of  dVf/d(braid  angle)  above  45°  results  from  the  lattice  parameter  c 

V 

being  less  than  a  in  this  region.  From  this  plot,  it  is  apparent  that  there  is  a 
minimum  fiber  volume  fraction.  This  value  depends  on  the  value  of  a 
assumed.  The  minimum  fiber  volume  fraction  decreases  as  the  value  of  a 
increases. 


Combined  Geometries 
Euclidean  Braid  with  lateral  lav-ins 

Combined  geometries  are  possessed  by  unit  cells  with  both  orthogonal  and 
bias  direction  constituent  yarns.  These  geometries  are  possessed  by 
Euclidean  braids  with  longitudinal  or  lateral  lay-ins,  Two-Step  braids,  and 


Fiber  Volume  Fraction 


Dependence  of  the  Fiber  Volume  Fraction  of  an  Euclidean  Braid 
on  the  Size  of  the  a  Lattice  Parameter  for  a  Braid  Angle  of  45° 

Figure  4-11 
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Crawford's  nonwovens.  In  the  case  of  the  Euclidean  braid  with  lateral  lay- 
ins,  the  presence  of  lateral  lay-ins  alters  the  fiber  volume  fraction  equation 
4-8  in  the  manner  shown  below. 

T  (4a/  2+tan29  +n)nD2 

Vf°  4a2to8 -  <4'9) 

In  this  equation,  n  represents  the  number  of  lateral  lay-ins.  A  lateral  lay- 
in  in  either  the  x  or  y  directions  possesses  length  a  (assuming  a  tetrahedral 
unit  cell).  The  presence  of  the  lateral  lay-ins  increases  the  T  value  of  Vf<a) 
for  a  specific  a,  as  compared  to  a  braid  with  100%  braiding  yams.  The  fiber 
volume  fraction  as  a  function  of  the  braid  angle  for  100%  braiding  yams, 
one  lateral  lay-in,  and  two  lateral  lay-ins  is  plotted  in  Figure  4-13.  The 
effect  of  the  lay-ins  on  the  fiber  volume  fraction  increases  as  the  braid  angle 
increases.  This  occurrence  is  attributed  to  the  decrease  in  the  relative 
length  of  c/a  as  the  braid  angle  increases. 


Euclidean  Braid  with  Longitudinal  Lav-ins 

The  addition  of  longitudinal  yams  alters  equation  4-8  to: 


Vf  = 


(4V2+tan29  -t-tanQhcD2 
4a2  tan0 


(4-10) 


The  additional  atanQ  term  accounts  for,  c,  the  length  of  the  longitudinal 
yam  in  the  unit  cell  (the  a  is  factored  out  in  4-8).  The  presence  of  the 
lateral  lay-ins  creates  a  T  value  of  Vf(a),  for  a  specific  a,  larger  than  that  of 


Braid  Angle 


A  Comparison  of  the  Dependence  of  the  Fiber  Volume  Fraction  on  the  Braid 
Angle  for  a  Euclidean  Braid  with  No,  One  and  Two  Lateral  Lay-in  Yams 

Figure  4-13 
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a  braid  with  one  lateral  lay-in,  but  smaller  than  with  two  lateral  lay-ins. 
The  fiber  volume  fraction  as  a  function  of  the  braid  angle  for  100%  braiding 
yarns  and  for  a  braid  with  longitudinal  lay-ins  is  plotted  in  Figure  4-14. 
The  effect  of  the  lay-ins  on  the  fiber  volume  fraction  decreases  as  the  braid 
angle  increases.  This  occurs  since  the  relative  length  of  c/a  decreases  as 
the  braid  angle  increases. 


Two-Step  Braid 

While  the  two  step  braiding  process  possesses  a  similar  geometry  to  the 
Euclidean'  braid  with  longitudinal  lay-ins,  they  are  not  identical.  The 
difference  in  these  two  unit  cells  arises  from  the  two  different  loom  designs. 
The  different  loom  designs  are  shown  in  Figure  4-15.  The  ratio  of 
longitudinal  yams  to  braiding  yams  is  different  in  both  processes.  For  the 
two  step  braid  the  ratio  must  be: 


L  RC 

b-r  +  c>:l 


(4-11) 


where  L  is  the  number  of  longitudinal  yams,  B  is  the  number  of  braiding 
yams,  R  is  the  number  of  rows,  C  is  the  number  of  columns.  In  the  3D 
braid  the  number  of  longitudinal  yams  can  vary  from  zero  upto  the  number 
of  braiding  yams. 


(4-12) 


The  projection  of  the  component  yams  on  the  (001)  pfanes  for  the  3D  braid 
with  longitudinal  lay-ins  and  the  two  step  braid  are  shown  in  Figure  4-16. 


A.  No  Lay-ins 

B.  One  Longitudinal  Lay-in 


.2 


1 ! 


21 


31 


4  1 
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Braid  Angle 


A  Comparison  of  the  Dependence  of  the  Fiber  Volume  Fraction  on  the  Braid 
Angie  for  a  Euclidean  Braid  with  No  Lay-ins  and  with  One  Longitudinal 

Lay-in  Yarn 
Figure  4-14 
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Euclidean  Braid  Loom  Design  with 
Longitudinal  Lay-ins 
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2-Step  Loom  Design 


Key: 

(3  Braiding  Yams 
Longitudinal  Yams 


A  Schematic  of  the  Different  Loom  Designs  for  the 
Euclidean  and  the  Two-Step  Braid 
Figure  4-15 


Two-Step  Braid- 


Euclidean  Braid  with  a 
Longitudinal  Lay-in 


Projection  of  the  Component  Yarns 
on  the  (001)  Plane 


Figure  4-16 


The  labels  T  and  B  on  the  two-step  braid  figure  represent  the  top  and  bottom 
plane  of  a  unit  cell.  The  length  of  each  bias  yam  is: 


Lb  =  '\^  2  (a--^)2  +  c2  =  -\j  2  (a-^)2  +  a2  tan29 


(4-13: 


Where  0  is  the  angle  relating  a  and  c.  The  expression  for  the  fiber  volume 
fraction  for  this  geometry  is: 


Vf = 


4 r\j  2  (a-^y)2  +  a2  tan2©  +  2atan9  rcD2 


4a3  tan9 


(4-14) 


The  fiber  volume  fraction  as  a  function  of  braid  angle  is  plotted  for  the  Two- 
Step  braid  and  the  Euclidean  braid  with  a  longitudinal  lay-in  in  Figure  4-17. 
The  Two-Step  braid  possesses  a  higher  minimum  fiber  volume  fraction 
since  there  is  a  higher  precentage  of  longitudinal  yarns  in  this  fiber 
architecture.  Since  a  higher  percentage  of  the  fiber  volume  fraction  in  the 
Two-Step  braid  arises  from  the  longitudinal  yams  it  is  less  dependent  on  0. 

Crawford's  Nonwovens 

Crawford's  7D  and  11D  nonwovens  are  combinations  of  orthogonal  and 
diagonal  yam  geometries.  These  geometries  behave  in  a  similar  manner  to 
the  above  mentioned  combined  geometries.  Figure  4-18  plots  the  fiber 
volume  fraction  as  a  function  of  the  bias  yam  orientation  for  Euclidean 
braids  with  longitudinal  and  lateral  inserts  as  well  as  the  7D  body  diagonal 
geometries.  The  fiber  volume  fraction  function  for  the  7D  body  diagonal 
geometry  can  be  expressed  as: 


Bias  Yarn  Orientation 


A  Comparison  of  the  Dependence  of  the  Fiber  Volume  Fraction  on  the  Bias 
Yarn  Orientation  Angle  for  the  Euclidean  Braid  with  a  Longitudinal  Lay-in 
and  the  Two-Step  Braid  with  a  =  3D 
Figure  4-17 
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A.  Longitudinal  Lay-m 

B.  Two-Step 

C.  7BD  Geometry 

D.  7FD  Geometry 


Bias  Yam  Orientation 


A  Comparison  of  the  Dependence  of  the  Fiber  Volume  Fraction  on  the  Bias 
Yam  Orientation  Angle  for  the  Combined  Geometries  with  a  =  3D 

Figure  4-18 
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Vf  = 


(4^  2+tan29  +  2  +  tan9)rcD2 
4a2  tan9 


(4-15) 


In  this  relationship,  it  is  assumed  that  a  =  b. 


For  the  face  diagonal  7D  geometry  the  length  of  each  face  diagonal  equals: 


Lp  =  Va^Tc2 


(4-16) 


Using  this  relationship,  the  fiber  volume  fraction  for  the  face  diagonal  7D 
geometry  is  expressed  as: 


Vf  = 


(4~\/ 1+ tan29  4-  2  +  tanObtD2 
4a2  tan0 


(4-17) 


The  fiber  volume  fraction  for  the  llD  geometry  can  be  determined  in  a 
similar  fashion. 


Vf  = 


(4 V  2+tan29  +4^)  l+tan29  +  2  +  tan9)  rcD2 
4a2  tan9 


(4-18) 


Figure  4-19  plots  the  fiber  volume  fraction  as  a  function  of  the  face  diagonal 
angle  with  the  lattice  parameter  a  equal  to  4D  for  the  three  Crawford 
geometries.  The  minimum  fiber  volume  fraction  of  the  11D  geometry  is 
very  high.  The  assumption  that  all  the  constituent  yams  intersect  at  the 
center  of  the  unit  cell  is  partially  responsible  for  this  value.  There  doesn't 
appear  to  be  much  difference  between  the  behavior  of  the  7BD  and  the  7FD 
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geometries  as  a  function  of  orientation  angle.  The  11D  geometry  is 
translated  vertically  from  these  curves  but  appears  to  possess  the  same  rate 
of  volume  fraction  increase. 


Three  Dimensional  Weaves 

The  possibilities  of  unit  cell  geometries  with  three  dimensional  weaves  is 
numerous.  For  this  model,  weaves  with  a  plain  weave  geometry  in  the  xy 
plane  are  studied.  The  effect  of  crimp  on  the  fiber  volume  fraction  is 
assumed  to  be  small  enough  that  the  plain  weave  can  be  modeled  asax/y 
lay-in  geometry. 

Figure  4-20  is  a  schematic  of  the  xz  plane  of  a  three  dimensional  weave. 
The  through  thickness  warp  yarn  is  known  as  the  web  yarn.  The  surface 
yams  form  a  traditional  plain  weave  on  the  surface  of  the  fabric.  Since  the 
presence  of  the  surface  yam  is  optional  and  does  not  effect  the  geometry  of 
the  interior  unit  cells,  it  will  be  ignored  in  this  model.  The  geometry  of 
these  weaves  is  described  by  a  series  of  unit  cells.  These  unit  cells  vary  by 
the  number  of  web  yams  in  them  and  the  orientation  of  these  yams.  The 
number  of  web  yams  can  vary  from  zero  to  two  in  each  unit  cell.  The  two 
possible  orientations  of  the  web  yams  is  shown  in  Figure  4-21. 

A  final  assumption  that  is  made  is  that  the  lattice  parameters  of  all  unit 
cells  are  the  same.  This  assumption  is  sound  when  there  are  many  cells 
with  web  yams,  since  these  cells  then  tend  to  support  the  cells  without  web 
yams.  The  lattice  parameters  in  the  xz  plane,  a  and  c,  are  equal  to  the 
sum  of  one  fill  yam  diameter  plus  a  bias  yam  diameter.  The  bias  yam 


a  =  (  1  +  1/sina  )  D 


\ 


XZ  Plane  of  Two  3D  Weave  Unit  Cells  Depicting  Possible 
Web  Yam  Orientations  and  the  Unit  Cell  Lattice  Parameters 


Figure  4-21 
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diameter  depends  on  the  web  angle.  The  relationship  of  this  angle  to  the 
lattice  parameter  is  shown  in  Figure  4-21.  Thus  a  and  c  are  equal  to: 

a  =  (1  +  — - — )  D  (4-19) 

sina 

c  =  (1  +  — - — )  D  (4-20) 

cosa 

Where  a  is  defined  as  the  web  angle.  Since  the  presence  of  the  web  yam  has 
no  effect  on  the  b  dimension,  b  =  2D,  as  in  a  XYZ  geometry.  When  a  =  0°,  the 
thick  weave  geometry  is  XYZ  orthogonal  with  a  =  b  =  c  =  2D  and  Vf  =  0.59. 

The  fiber  volume  fraction  of  a  unit  cell  with  no  web  yam  is: 

1  1  x 
(4  + - +  — - )  n 

cosa  sma  , 

Vf  =  - z - j -  (4-21) 

8  (1  +  -~ — )  (1  + - ) 

sina  cosa 

The  assumption  is  made  that  the  web  yam  enters  the  cell  at  a/2  and  exits  at 
c/2.  The  length  of  a  web  yam  in  a  unit  cell  is  equal  to: 

U  =  ^(f)2  +(§)2  (4-22) 

Correspondingly  the  fiber  volume  fraction  of  a  unit  cell  with  one  or  two  web 


yams  is: 
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Vf 


(4  +  +  .  •+■  nLw)  7C 

cosa  sina _ 

8  (1  +  “ — )  (1  +  ~  ) 
sina  cosa 


(4-23) 


where  n  is  defined  as  the  number  of  web  yams  per  unit  cell. 

Figure  4-22  plots  the  fiber  volume  fraction  as  a  function  of  a  for  a  unit  cell 
with  one,  two  or  no  web  yams.  There  is  a  maximum  fiber  volume  fraction 
at  45°  for  all  unit  cells.  The  sharp  drop  in  Vf  in  the  limit  of  90°  is  attributed 
to  cosa  going  to  0  in  this  region.  Figure  4-23  plots  the  effect  of  varying  the 
relative  proportion  of  cells  with  and  without  wehyams  when  a  equals  45°  by 
using  the  following  function: 

VKP)  =  P  Vf  (n=0)  +  (l-P)  Vf  (n=2)  (4-24) 

n  is  the  number  of  web  yarns  per  unit  cell 


Geometric  Isotropy 

A  fiber  architecture  is  considered  to  possess  geometric  isotropy  if  the 
variation  in  effective  fiber  volume  fraction  directly  contributing  to  a  loading 
direction  is  constant  for  any  arbitrary  angle.  The  effective  fiber  volume 
fraction  of  a  fabric  is  defined  as  the  fraction  of  fibers  aligned  in  the  proper 
direction  in  order  for  the  applied  load  to  be  transferred  to  the  fibers.  For 
this  model  of  geometric  isotropy,  the  load  bearing  capacity  of  a  fiber  in  the 
transverse  direction  is  assumed  to  be  zero.  This  capacity  is  assumed  to  be 
one  in  the  longitudinal  direction.  These  assumptions  can  be  applied  since 


The  Effect  of  the  Number  of  Web  Yarns  Per  Unit  Cell  on  the 
Fiber  Volume  Fraction  as  a  Function  of  the  Web  Angle 

Figure  4-22 


Fiber  Volume  Fraction 
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Fraction  of  Unit  Cells  with  Web  Yarns 


The  Range  of  Fiber  Volume  Fractions  Possible  by  Varying  the  Number  of 
Web  Yarns  Per  Unit  Cell  When  the  Web  Yam  Angle  is  45 

Figure  4-23 
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the  load  bearing  capacity  of  a  yam  in  the  transverse  direction  is  many 
orders  of  magnitude  lower  than  that  in  the  longitudinal  direction. 

The  geometric  isotropy  of  the  various  fiber  architectures  is  described  by 
plotting  the  effective  fiber  volume  fraction  at  any  arbitrary  angle  in  the  xy, 
xz,  and  yz  planes.  The  angle  y  is  defined  as  the  projection  of  the  arbitrary 
angle  onto  the  plane  being  analyzed.  <p  is  defined  as  the  angle  a  yam 
orientation  makes  with  the  axis  normal  to  the  plane  in  question.  9  is  the 
angle  the  projection  of  a  yam  orientation  makes  with  a  given  plane. 

The  geometric  isotropy  in  the  three  orthogonal  planes  is  plotted  as  a 
function  of  the  arbitrary  angle  in  the  three  orthogonal  planes.  In  each  plot 
of  the  geometric  isotropy  in  an  ij  plane,  i  corresponds  to  the  horizontal  axis 
and  j  represents  the  vertical  axis.  For  a  totally  isotropic  material,  the 
geometric  isotropy  plots  would  possess  a  circular  shape.  The  greater  the 
eccentricity  of  the  plot,  the  higher  the  degree  of  anisotropy  present. 
Geometric  isotropy  plots  are  made  of  the  different  fabric  geometries 
described  in  this  chapter. 


Multiaxial  Warn  Knits 

Since  the  contribution  of  the  knitting  yam  to  the  total  fiber  volume  fraction 
is  typically  1%,  the  presence  of  the  knitting  yam  is  ignored  when 
calculating  the  geometric  isotropy.  There  arc  four  yam  orientation 
directions  of  the  lay-in  yams  comprising  a  MWK  These  directions  and  the 
fractional  contribution  they  make  to  the  total  fiber  volume  fraction  is 
expressed  as: 


106 


Vf  =  Vx  +  Vy  +  v+Q  +  v.q  =  2Vn  (1  +  — “ )  (4-25) 

J  cos© 

y 

since  Vx  =  Vy  ,  V.g  =  V+q  and  V+e  =  — 5— 

J  cos  0 

For  an  arbitrary  angle,  y  ,  the  percent  volume  fraction  in  the  xy  plane  is: 

, cos(8-y)  .  ,  cos(9+y)  ,  ^ 

V(y)  =  Vn  ( I  cosy  I  +  I  siny  I  +  I -  I  +  I - - —  I )  (4-26) 

Each  term  of  4-25  represents  Vx  ,  Vy  ,  V.e,  and  y+e  respectively.  In  Figure  4- 
24  the  geometric  isotropy  in  the  xy  plane  is  plotted  for  theta  is  equal  to  45 
and  30  degrees.  There  is  a  local  minimum  orthogonal  to  every  principal 
yam  orientation  direction  in  the  plane.  This  minima  is  greater  for  the  ±  45° 
direction  than  for  the  ±30°  direction.  In  the  ±45°  case  the  bias  yams  are 
orthogonal  to  each  other  and  do  not  supply  any  effective  load  carrying 
capacity  to  each  other. 

I 

The  geometric  isotropy  in  the  xz  and  the  yz  planes  is  similar.  The  effective 
fiber  volume  fraction  as  a  function  of  $  in  these  planes  is  described  by: 

V«>)  =  V(y)  I  cos4>  I  (4-27) 

The  geometric  isotropy  of  these  planes  is  shown  in  Figure  4-25.  The  effect  of 
the  knitting  yam  on  the  geometric  isotropy  in  the  xz  and  the  yz  planes  was 
determined  for  a  fiber  volume  fraction  of  1%  knitting  yam.  This  presence 


109 


had  a  small  effect  on  the  geometric  isotropy  in  the  regions  of  y  =  -45°  to  45°, 
and  135°  to  225°.  In  the  other  regions  there  was  no  significant  effect. 


XYZ  Geometry 

The  distribution  of  the  constituent  yam  orientation  of  the  XYZ  orthogonal 
geometry  is  similar  for  all  three  yam  directions.  This  distribution  is  given 
below: 


0.33Vf  =  Vx  =  Vy  =  Vz  =  Vn  (4-28) 

The  geometric  isotropy  of  the  type  one  orthogonal  geometry  is  similar  for  all 
three  orthogonal  planes.  This  relationship  can  be  expressed  as: 

V(y)  =  Vn  ( I  cosy  I  +  I  siny  I )  (4-29) 

The  geometric  isotropy  of  XYZ  architecture  is  plotted  in  Figure  4-26.  Local 
minima  occu^when  constituent  yams  are  orthogonal  to  each  other.  In  the 
XYZ  geometry  yams  are  orthogonal  to  each  other  on  the  principal  axes. 


XXYZ  Geometry 

Because  of  the  relative  orthogonality  of  the  constituent  yams  in  a  XXYZ  and 
a  XXYYZ  geometry,  the  geometric  isotropic  curves  for  these  geometries 
possesses  the  same  orientation  angle  for  local  minima  as  the  XYZ 
geometry.  The  percent  fiber  volume  fraction  of  each  unique  yam  orientation 
is  dissimilar  for  these  geometries.  The  geometric  isotropy  curves  differ  by 
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the  magnitude  of  the  effective  fiber  volume  fraction  in  each  plane.  The  fiber 
volume  fraction  distribution  of  the  XXYZ  geometry  is: 


Vf=Vx+Vy  +  Vz  =  4Vn  +  3Vn  +  2Vn  =  9Vn 


(4-30) 


The  geometric  isotropy  of  the  xy  plane  can  be  expressed  as: 


V(y)  =  Vn  (4 1  cosy  1+31  sinyi ) 


(4-31) 


The  geometric  isotropy  of  the  xz  plane  can  be  expressed  as: 


V(y)  =  Vn  (4 1  cosy  1  +  21  sinyi ) 


(4-32) 


The  geometric  isotropy  of  the  yz  plane  can  be  expressed  as: 


V(y)  =  Vn  (3 1  cosy  1+21  sinyi ) 


(4-33) 


The  geometric  isotropy  of  these  three  planes  is  plotted  in  Figure  4-27.  The 
geometric  isotropy  of  the  XXYYZ  geometry  is  described  in  a  similar 
manner.  The  fiber  volume  fraction  distribution  of  the  XXYYZ  geometry  is: 


Vf  =  Vx  +  Vy  +  Vz  =  3Vn  +  3Vn  +  2Vn  =  8Vn 


(4-34) 
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The  geometric  isotropy  of  the  xy  plane  can  be  expressed  as: 

V(y)  =  Vn  (3 1  cosy  1+21  sinyl )  (4-35) 

The  geometric  isotropy  of  the  xz  and  the  yz  planes  can  be  expressed  as: 

V(y)  =  Vn  (3 1  cosy  1+21  sinyl )  (4-36) 


Body  Diagonal  Geometry 

The  fiber  volume  fraction  distribution  of  a  body  diagonal  fabric  geometry  is 
equally  divided  by  the  four  yam  orientations  of  this  geometry.  When  this 
geometry  is  present  in  an  cubic  unit  cell,  the  geometric  isotropy  is 
equivalent  in  all  orthogonal  planes.  The  geometric  isotropy  can  be 
expressed  as: 

V(y)  =  0.5  lsin(54.74)l  (I  cos(45-y)l  +1  cos(45+y)i)  (4-37) 

By  the  symmetry  of  the  fiber  architecture,  the  angle  made  with  the  axis 
normal  to  the  plane,  35.26°.  is  the  same  for  all  yam  orientations.  The 
projection  of  the  four  yarn  orientations  reduces  to  two  individual 
orientations  in  a  specific  plane.  The  two  cosine  terms  reflect  these 
orientations. 

The  geometric  isotropy  of  the  body  diagonal  geometry  with  a  tetrahedral 
unit  cell  in  the  xy  plane  is  described  by  the  general  form  of  the  above 
equation,  which  is  given  below. 
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V(y)  =  0.5  I  sin4>  I  ( I  cos(G-y)  I  + 1  cos(94-y)  I )  (4-38) 

4>  =  tan-l(— )  (4-39) 

tanQ 

The  isotropy  of  the  xz  and  yz  planes  differs  from  that  of  the  xy  plane 
through  possession  of  a  different  value  for  9.  The  geometric  isotropy  for  the 
body  diagonal  geometry  with  a  angle  of  45°  in  the  xy  plane  and  60°  in  the  xz 
and  yz  planes  is  shown  in  Figure  4-28.  There  is  a  significant  increase  in 
the  anisotropy  with  an  angle  of  60°,  since  c  is  then  significantly  greater 
than  a.  When  0  =  60°  local  minima  occur  at  30,  150,  210,  and  330  degrees. 
These  angles  are  orthogonal  to  the  two  yam  orientations  in  the  plane. 


Euclidean  Braid  with  Lateral  Lav-ins 

The  presence  of  lateral  lay-ins  only  effects  the  xy  plane  isotropy  of  an 
Euclidean  braid.  The  geometric  isotropy  of  this  braid  with  two  orthogonal 
lateral  lay-ins  can  be  expressed  as: 

Vr 

V(y)  =  -7-p-  I  sin<j>  I  ( I  cos(9-y)  I  + 1  cos(9+y)  I ) 

+  (I cosy  1+  Isinyl)  (4-40) 

where  Vf  =  Vb  +  VLat 


The  exact  value  of  Vb  can  be  determined  with  the  following  equation: 


116 


VB  =  1- 


2 

V  2+tan29  +  2 


(4-41) 


Figure  4-29  plots  this  geometric  isotropy.  The  presence  of  the  lateral  yams 
decreases  the  curvature  of  the  plot  in  each  segment  and  creates  an 
inflection  point  on  the  axes. 


Euclidean  Braid  with  a  Longitudinal  Lav-in 

The  presence  of  longitudinal  lay-ins  effects  the  xz  and  yz  plane  isotropy  for 
an  Euclidean  braid.  The  geometric  isotropy  of  this  fabric  can  be  expressed 
as: 


Vr 

V(y)  =  —■  I  sin<j>  I  ( I  cos(0-y)  I  + 1  cos(0+y)  I ) 

+VLonglsinyl  (4-42) 

where  Vf  =  VB  +  VLong 

The  exact  value  of  VB  can  be  determined  with  the  following  equation: 

tan9 

===== -  (4-43) 

2+tan29  +  tan0 


Figure  4-30  plots  this  geometric  isotropy  for  a  theta  of  60°  in  the  xz  plane. 
The  presence  of  the  longitudinal  lay-in  in  the  z  direction  creates  additional 
local  minima  on  the  x  axis. 
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Two-Step  Braid 

The  relative  value  of  this  minima  is  greater  in  the  two  step  braid  as  a  result 
of  the  larger  proportion  of  longitudinal  lay-ins.  The  geometric  isotropy  of 
the  xz  plane  of  the  two-step  braid  is  shown  in  Figure  4-31.  The  isotropy  in 
this  plane  is  similar  to  that  in  the  yz.  The  geometric  isotropy  is  modelled 
using: 


V(y)  =  l  sin<J>  I  ( 1  cosCQ-y)  I  + 1  cos(04-y)  I ) 

Long  i  sinyl 


(4-44) 


.  ,  atan0 

<J)  =  tan-1  ( — -  ■ — =l1 


■\]  2 (a--)2 


(445) 


Vf  —  VBias  +  VLong 


(446) 


^Bias 


_ 2atan8 _ 

2atan9  +'\j  2  (a-  +  a2  tan20 


(447) 


0  is  defined  as  the  braid  angle,  a  is  a  lattice  parameter,  and  D  is  the  yarn 
diameter  used  to  calculate  the  geometry  of  this  cell  in  4-13. 

The  xy  plane  geometric  isotropy  of  the  two-step  braid  is  shown  in  Figure  4- 
32.  This  plot  is  generated  with  the  following  function,  when  a  tetrahedral 
unit  cell  is  assumed: 
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V(y)  =  |  sin4)  |  (|  Cos(0~y)  I  +1  cos(e+Y)D 


(4-48) 


where  4>  =  tan*1( 


2(a-j)2 
atanG  ^ 


Since  the  a  and  b  lattice  parameters  are  equal  in  this  plane,  theta  equals  45 
degrees.  This  function  possesses  the  same  form  as  equation  4-33,  for  the 
geometric  isotropy  of  the  Euclidean  braid  with  100%  braiding  yams  in  the 
xy  plane. 


Crawford's  7D  Body  Diagonal  Geometry 

Crawford's  7D  body-diagonal  geometry,  plotted  in  figure  4-33,  possesses  a 
similar  geometric  isotropy  to  the  braid  with  lateral  lay-ins  in  the  xy  plane 
and  to  the  braid  with  longitudinal  lay-ins  in  the  xz  and  the  yz  planes.  The 
geometric  isotropy  of  this  fiber  architecture  can  be  generated  by  utilizing 
equations  4-40  and  4-42  for  the  respective  planes.  The  determination  of  the 
fiber  volume  fraction  coefficient  is  made  using  the  following  relations. 


Vf  =  Vb  +  VLong  +  Vut 

(4-49) 

Vut  =  —7 - = - 

4'y2+tan20  +  2  +  tan0 

(4-50) 

Tr  atanG 

*  Long  —  i - 

4y  2+tan20  +  2  +  tan0 

(4-51) 

t 
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Vb  =  1  -  VLong-  VLat 


(4-52) 


Crawford's  7D  Face  Diagonal  Geometry 

The  geometric  isotropy  of  Crawford's  7D  face  diagonal  geometry  in  the  xy 
plane  when  the  lattice  parameter  a  =  b,  possesses  no  local  minima  at  45°. 
This  phenomena  occurs  since  the  projection  of  the  face  diagonal  yams  into 
the  orthogonal  planes  is  parallel  either  to  one  of  the  orthogonal  axes.  The 
function  used  to  plot  the  geometric  isotropy  in  the  xy  plane  is: 

VK 

V(y)  =  Vx  I  cosy!  +  Vy  I  siny  I  + cos0  (  lsinyl+  I  cosy  I  X4-53) 


Vf  =VX  +  Vy  +  V2  +  Vf 


V*  =  Vy  = 


2  +  tanQ  +  ^  l+tan20 


V*  = 


tanQ 


2  +  tanQ  +  V  l+tan2Q 


(4-54) 

(4-55) 

(4-5G) 


VF=1-VX  -Vy-Vz 

/- 


(4-57) 


Corresponding  the  geometric  isotropy  of  the  xz  plane  is: 


Vf 

V(y)  =  Vx  I  cosy  1  +Vzlsiny  l  +  ~(  lcos(0+y)  1+  lcos(Q-y)l) 


(4-58) 
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The  geometric  isotropy  of  the  yz  plane  is: 

V(y)  =  Vy  I  cosy  I  +  Vzlsiny  l  +  lcos(8+y)  1+  lcos(8-y)l) 

(4-59) 

The  geometric  isotropy  of  the  xz  and  the  yz  planes  are  equivalent  if  a  =  b. 
The  factor  that  is  divided  into  Vf  differs  from  that  of  the  xy  plane  since  only 
one-half  of -the  face  diagonals  are  projected  into  either  the  xz  or  the  yz 
planes.  The  different  isotropy  plots  for  this  fiber  architecture  are  shown  in 
Figure.  4-34 


Crawford's  IIP  Geometry 

The  xy  plane  isotropy  of  Crawford's  11D  geometry  possesses  many  local 
minima  as  a  result  presence  of  the  body  diagonal,  face  diagonal,  and 
orthogonal  yams.  Figure  4-35  plots  the  isotropy  of  this  geometry  for  the  xy 
and  xz  planes.  Since  a  tetrahedral  unit  cell  is  assumed,  the  xz  and  the  yz 
planes  are  equivalent.  The  function  used  to  produce  the  xy  geometric 
isotropy  plot  is: 


Vf 

V(y)  =  Vx  I  cosy  I  +  Vy  I  siny  I  +  cos9  (  Isiny  1+  I  cosy  I ) 

Vr 

+  -Tp-  I  sin<J>  I  ( I  cos(9-y)  I  + 1  cos(8+y)  I )  (4-60) 

Jo 

with  4>  =  tan*1  ( - ) 

tan9 


In  the  xz  and  the  yz  planes  (the  12  planes): 


12S 


Yr  Yd 

V(y)  =  Vilcosyl  +  V2lsiny  1+  (“4“ +  “2“  lsin<f>D  d 

cos(0-y)l  + 

1  cos(0+y)  1 ) 

(4-61) 

- ,  tan0 

with  (|)  —  tan  (  ) 

The  principal  fiber  orientation  directions  comprise  the  fiber  volume  fraction 

in  the  following  manner: 

Vf  =  Vx  +  Vy  +  vz  +  VF  +  VB 

(4-62) 

y  2  +  tan0  +  Y  l+tan20  +  Y  2+tan20 

'(4-63) 

tan0 

y  _ _ _ _ _ 

(4-64) 

2  +  tan0  +  Y  l+tan20  +  "\j  2+tan28 

Yl+tan20 

2  +  tan0  +  V  l+tan2q  +  Y  2+tan20 

(4-65) 

VB=  1-VX  -vy-vz-vF 

(4-66) 

3D  Weaves 

The  presence  of  the  web  yams  in  the  three  dimensional  weave  geometry 
has  the  same  effect  on  the  geometric  isotropy  as  the  face  diagonal  yams  of 
.  the  combined  geometries.  Each  plane  in  this  fiber  architecture  possesses  a 

'  different  geometric  isotropy.  The  functions  to  generate  these  different 

I 

I 
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isotropies  for  a  thick  weave  with  two  web  yams  per  unit  cell 
below. 

In  the  xy  plane: 

V(y)=Vxl  cosy  I  +  Vyl  sinyl  +  VWI  cos4>  cosy  I 
In  the  xz  plane: 

V 

V(y)  =Vx  I  cosy  I  +  (  I  cos(a  +  y)  I  +1  cos(a  -  y)  1 


In  the  yz  plane: 

V(y)  =Vy  I  cosy  I 

where: 

4>  =  tan-1  (^-) 

a  is  defined  in  equation  4-18  and  c  is  defined  in  4-19. 


Vf  =vx  +Vy  +  vw 


1  + 


Vx  = 


sina 


0  1  1 
2  +  +  +  2Lw 


sxna  cosa 


Vw  = 


2Lw 


„  1  1 
2  +  +  +  2Ly f 


sma  cosa 


are  given 


(4-67) 


(4-68) 


(4-69) 


(4-70) 


(4-71) 


(4-72) 


(4-73) 


VY  =1-Vt  -Vw 


(4-74) 


Figure  4-3G  plots  the  geometric  isotropy  of  these  three  planes.  The  yz  plane 
possess  an  isotropy  similar  to  that  of  the  MWK  in  this  plane.  The  xy  and 
the  xz  planes  possess  minima  at  intervals  of  45°  as  a  result  of  the  presence 
of  the  web  yams. 


xz  Plane 


xy  Plane 


yz  Plane 


The  Geometric  Isotropy  of  a  Three  Dimensional  Weave 

Figure  4-36 
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CHAPTER  FIVE 
MECHANICAL  MODELLING 


The  3-D  fibrous  composite  can  be  regarded  as  an  assemblage  of  a  finite 
number  of  individual  structural  cells.  Each  individual  cell  is  the  smallest 
representative  volume  taken  from  the  fiber  architectural  system.  It  is  then 
treated  as  a  space  structure  with  the  endowed  representative  architecture, 
rather  than  a  material  with  a  set  of  effective  continuum  properties.  The 
basic  idea  is  to  identify  the  unit  cell's  nodal  supports,  similar  to  the  nodal 
points  of  a  conventional  finite  element.  By  the  introduction  of  the  principle 
of  virtual  work  in  solid  mechanics  and  structural  analysis,  the  matrix  [kj, 
the  stiffness  of  the  cell  can  be  derived  to  relate  nodal  displacement  vector  to 
nodal  forces  for  a  cell. 


Therefore,  the  key  step  in  the  formulation  of  the  problem  is  the 
identification  of  the  unit  cell's  nodal  points.  In  this  model,  the  yams  which 
pass  by  a  node  are  considered  as  intersected  each  other  and  hence,  can  be 
treated  as  either  pin-jointed  two-force  truss  members  or  rigid  connected 
frame  members.  With  this  postulate,  the  interaction  at  the  yarn 
interlacing  is  not  considered  in  this  modelling.  Thus,  for  instance,  by 


133 


treating  a  unit  ceil  specifically  as  a  pin-jointed  space  truss  ,  a  3-D  truss 
finite  element  technique  may  be  employed  for  the  mechanistic  analysis. 


As  for  the  matrix  in  a  composite,  it  is  usually  used  as  load  transfer 
medium.  In  order  to  include  the  effect  of  matrix,  which  is  subjected  to 
tension  or  compression  under  the  deformation  of  yarns,  the  matrix  is 
assumed  to  act  as  rod  members.  Each  rod  member  connects  the  two  ends  of 
a  given  set  of  corresponding  yarns  in  the  unit  cell.  Hence,  the  matrix  plays 
a  role  in  restricting  the  free  rotation  and  deformation  of  yarns. 


The  methodology  of  the  finite  element  modelling  is  presented  in  the 
following.  First  of  all,  let  ajj  represent  the  value  of  member  deformation  q; 
caused  by  a  unit  nodal  displacement  rj.  The  total  value  of  each  member 
deformation  caused  by  all  the  nodal  displacements  may  be  written  in  the 
following  matrix  form: 

(q)  =  [a]  (r)  (5-1) 

where  [a]  is  called  the  displacement  transformation  matrix  which  relates 
the  member  deformations  to  the  nodal  displacements.  In  other  words,  it 
represents  the  compatibility  of  displacements  of  a  unit  cell. 


The  next  step  is  to  establish  the  force-displacement  relationship  within  the 
unit  cell.  The  member  force-deformation  relationship  can  be  written  as: 
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[Q]  =  [K]  {q}  (5-2) 

where  [K  ]  is  the  stiffness  matrix  of  a  member 

The  principle  of  virtual  work  states  that  the  work  done  on  a  system  by  the 
external  forces  equals  the  increase  in  strain  energy  stored  in  the  system. 
Here,  the  nodal  forces  can  be  considered  as  the  external  forces  of  the  unit 
cell.  Therefore,  if  {R}  represents  the  nodal  force  vector,  it  follows  that 


{5r}T{R}  =  {5c}T{Q} 


(5-3) 


where  (Sr)  and  {8q}  are  virtual  displacement  and  deformation,  respectively. 
From  Equations. (5-1)  and  (5-2),  the  following  equations  can  be  derived 
through  matrix  manipulation: 


(R)  =  [K]{r} 


(5-4) 


where:  (R)  =  nodal  forces 

[K]  =  [a]T[K’][a]  =  stiffness  matrix  of  the  unit  cell 


(r)  =  nodal  displacements 
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Using  Equation  (5-4),  the  nodal  force  and  the  nodal  displacements  of  a  unit 
cell  are  related  by  the  stiffness  matrix  of  the  unit  cell. 


In  the  above  mentioned  methodology,  the  stiffness  matrix  of  a  unit  cell  was 
formalized  by  use  of  the  compatibility  matrix  [A]  and  the  concept  of 
principle  of  virtual  work.  With  this  approach,  the  entire  stiffness  matrix 
[K]  was  assembled  by  the  triple  matrix  multiplication  given  as  Eq.(5-4).  For 
truss  structure  or  simple  fiber  architecture  of  a  unit  cell,  the  compatibility 
matrix  can  be  obtained  without  rigorous  calculations.  However,  when  the 
fiber  architecture  becomes  complicated  or  a  frame  unit  cell  is  being 
analyzed,  it  involves  a  large  compatibility  matrix  where  many  of  the 
elements  are  not  easy  to  be  evaluated  correctly.  From  the  computer 
programming  points  of  view,  neither  the  generation  of  this  matrix  [A]  nor 
the  multiplication  process  for  [K]  matrix  assembly  would  be  suitable  to  be 
explicitly  laid  out.  A  better  methodology  which  combines  the  ideal  of 
previously  mentioned  approaches  and  computer-oriented  techniques  is 
presented  in  the  following,  which  is  known  as  the  Direct  Stiffness  Method. 


In  this  method,  the  end  displacements  of  each  member  are  treated  with 
respect  to  structural  (global)  coordinates.  In  this  way  all  of  the  geometric 
transformation  will  be  handled  locally,  and  the  stiffness  matrix  can  be 
assembled  by  direct  addition  instead  of  by  matrix  multiplication.  Thus,  the 
assembly  of  the  joint  stiffness  matrix  may  be  stated  as 
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n 


K=XKi 

i=l 


(5-5) 


where  n  is  total  number  of  the  members,  Kj  is  the  i-th  member  stiffness 
matrix  with  end-forces  and  displacements  in  the  directions  of  structural 
coordinate.  Therefore,  the  member  stiffness  matrix  should  firstly  be 
obtained  with  respect  to  the  member  axes,  and  then  transformed  in 
reference  to  the  structural  coordinates. 


The  member  stiffness  matrix  is  obtained  by  a  unit  displacement  method. 
The  unit  displacements  are  considered  to  be  induced  one  at  a  time  while  all 
other  end  displacements  are  retained  at  zero.  The  unkown  displacements 
at  each  joint  of  a  truss  consists  of  three  components,  namely,  the  x,  y  and  z 
components  of  the  joint  translations.  The  unkown  displacements  at  each 
joint  of  a  frame  consists  of  six  components,  namely,  the  x,  y  and  z 
components  of  the  joint  translations  and  the  x,  y  and  z  components  of  the 
joint  rotations. 


The  member  stiffness  matrices  of  the  space  truss  and  space  frame  in 
member  coordinates  are  given  in  Figure  5-1  and  Figure  5-2,  respectively. 
The  elements  of  the  jth  column  in  the  matrices  represent  the  forces 
required  to  hold  the  unit  displacement  in  the  jth  direction,  or,  each  column 
in  the  matrix  represents  the  forces  caused  by  one  of  the  unit  displacements. 
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The  present  modelling  will  consider  the  high  symmetry  composites  as 
frame  structures.  In  this  sense,  the  axial,  flexural  and  torsional  stresses 
and  deformations  of  a  member  may  be  induced  under  tensile  load.  In  other 
words,  the  modelling  takes  into  consideration  of  axial,  bending  and  torsion 
of  yams.  In  general  case,  if  the  member  axes  are  not  coincident  with 
structural  axes,  a  rotation  transformation  matrix  should  be  performed  to 
obtain  the  member  stiffness  in  structural  coordinates. 


Let  the  spatial  coordinate  system  of  a  prismatic  member  be  given  in  Figure 
5-3.  The  direction  cosines  rj ,  sj  and  ti  relate  the  structure  axes  (Xs,  Ys,  Zs) 
to  the  member  axes  (Xm,  Ym,  Zm).  The  coordinate  transformation  between 
Xm,  Ym,  Zm  and  Xs,  Ys,  Zs  may  be  written  as 


f  Xm 
{  Ym 
l  Zm 


ri  si  ti  ‘ 
r2  s2  t2 
r3  S3  t3  . 


Xs 

Ys 

Zs 
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[Km]  « 


EA/L  0  0  -EA/L  0 
0  0  0  0  0 

0  0  0  0  0 

-EA/L  0  0  EA/L  0 
0  0  0  0  0 

0  0  0  0  0 


0 

0 

0 

0 

0 

0 


\ 


Figure  5-1.  Stiffness  Matrix  of  a  3-D  Truss  Member 
in  Member  Coordinates. 
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Figure  5-2.  Stiffness  Matrix  of  a  Member  in  a  Unit  Cell  in  Member  Coordinates. 
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or  in  the  concise  matrix  from: 

(Xm}=[T]{Xs}  (5-6) 

The  first  row  of  matrix  [T]  relates  the  structure  axes  to  the  Xm  axis,  and 
can  be  written  as: 

n  =  cos  (Xm,  Xs) 
si  =  cos  (Xm,  Ys) 
ti  =  cos  (Xm,  Zs) 

Similar  formulations  are  derived  for  r2,  s2,  t2  and  r3,  S3,  t3. 

If  the  displacements  or  forces  are  expressed  in  two  different  coordinate 
systems,  the  coordinate  transformation  is  used  as  the  transformation 
matrix  between  the  two  coordinates.  For  displacements,  the  relation  is  as 
following: 


(Dm)  =[RtJ  (Ds)  (5-7) 

and  for  forces 

{  Fm  )  =  [  Rt  ]  {  Fs  }  (5-8) 

where  (Dm)  and  (Fm)  represent  the  properties  in  member  axes  and  (Ds) 
and  (Fs)  stand  for  the  properties  in  structural  axes.  The  transformation 
matrix  [Rt]  is  orthogonal,  which  consists  of  directional  cosine  matrix  [TJ 
in  diagonal  terms.  For  a  truss,  the  transformation  matrix  [  Rt  ]  is 
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and  for  a  frame  ,  the  transformation  matrix  [  Rt  ]  is 

TOOO" 

OTOO 
OOTO 
OOOT. 

Let  [Km]  and  [Ks]  be  the  stiffness  matrix  in  member  axes  and 
structural  axes,  respectively.  Then  the  forces-displacements  relationships 
take  the  following  forms: 

{  Fm  }  =  [  Km  ]  {  Dm  } 

and 

{  Fs  }  =  [  Ks  ]  {  Ds  } 

Substituting  Equ.(5-7)  and  Equ.(5-8)  into  Equ.(5-9),  it  yields 

{  Fs  }  =  [  Rt  ]T  [  Km  ]  [  Rt  ]  {  Ds  }  (5-11) 

Compare  equ(5-10)  and  equ(5-ll),  we  have 

[  Ks  ]  =  [  Rt  ]T  [  Km  ]  [  Rt  ]  (5-12) 

Consider  a  typical  space  member  i  with  two  ends  j  and  k,  shown  in 
Figure  5-4  with  axes  Xs,  Ys  and  Zs  being  parallel  to  the  structural  axes. 


(5-9) 

(5-10) 
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The  Xm  is  taken  as  the  longitudinal  axis  of  the  member  while  the  Ym  and 
Zm  directions  remain  to  be  determined.  Many  ways  can  be  selected  for 
determining  the  directions  of  the  Ym  and  Zm  axes.  A  convenient  way  is  to 
take  the  Zm  axes  as  being  lying  in  the  Xs-Zs  plane,  as  shown  in  the  Figure 
5-4.  Once  the  Xm  and  Zm  axes  are  determined,  the  Zm  axis  is  located 
automatically  by  right-handed  rule. 

When  the  member  axes  are  determined  in  the  above  described  manner, 
there  is  no  confusion  about  their  orientations  except  in  the  case  of  vertical 
member.  In  this  case,  the  position  of  Zm  axis  in  the  horizontal  plane  is  not 
uniquely  defined.  The  additional  restriction  will  be  made  so  that  the  Zm 
axis  is  always  taken  to  be  the  Zs  axis.  Two  possibilities  for  this  case  are 
shown  in  Figure  5-5,  concerning  vector  from  initial  end  to  final  end. 

The  transformation  from  the  structure  axes  to  the  member  axes  may  be 
considered  to  take  two  rotation  steps.  The  first  rotation  is  Xs  and  Zs  axes 
rotate  an  angle  13  about  Ys  axis.  This  rotation  moves  the  Xs  axis  to  the 
position  denoted  as  Xfl  and  moves  the  Zs  axis  to  the  final  position  denoted  as 
Zb  (same  as  Zm).  The  transformation  formula  is  written  as  follows: 

{  XB 1  =  [  Tb  ]  {  Xs  }  (5-13) 

where 


'  cosfi 
[  Tb  j  =  o 

.-sinfi 


0  sinfi  ‘ 
1  0 
0  cosfi. 


<  46 

For  the  second  rotation,  Xfl  and  Yfi  rotate  an  angle  y  about  Zr  axis.  This 
rotation  moves  the  Xfi  and  Ye  axes  to  the  final  positions  Xm  and  Ym.  The 
transformation  is  expressed  as: 

{  Xm  }  =  [  Ty  ]  {  Xe  }  (5-14) 

where 

cosy  siny  0 
[Ty]  -  -siny  cosy  0 
_  0  0  1 

Substituting  Equ.(5-13)  into  Equ.(5-14)  yields 

(Xm)  =  [  Ty  ]  [  To  ]  {  Xs  }  (5-15) 

Comparing  above  equation  with  Equ(5-6),  we  have  the  rotation  matrix 
[  T  J  =  [  Ty  ]  [  Te  ]  (5-16) 

Let  (  Xj,  Yj,  Zj )  and  (  Xk  ,  Yk,  Zk  )  be  the  coordinates  of  initial  end  and 
terminal  end  of  the  member,  respectively.  Then  the  directional  cosines  that 
relate  this  structure  axes  to  Xm  axis  is  obvious  as  follows: 


Yk-Yj 
S1  =  s  =~~L~ 
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Zk-Zj 

tl  =  t=— 


where  L  is  the  length  of  member,  can  be  obtained  from  the  coordinates  of 
two  ends.  Let  q  be  equal  to  (r2+t2)1/2,  and  the  rotation  matrix  in  equation  (5- 
13)  and  (5-14)  can  be  expressed  as  follows: 

[Tb] 

and 


[  TY  ]  = 


‘q  s  0‘ 
-s  q  0 
.001. 


Thus,  the  rotation  matrix  for  transformation  between  the  member  axes  and 
the  structure  axes  takes  the  following  form: 


[  T  J  =  [  TY  ][  TeJ 


r  s  t 


(5-17) 


The  above  rotation  matrix  [TJ  is  valid  for  all  positions  of  the  member  except 
when  the  member  is  vertical.  In  the  case  of  a  vertical  member,  the 
directional  cosines  of  the  member  axes  with  respect  to  the  structure  axes 
can  be  determined  by  inspection.  Thus  the  rotation  matrix  is  seen  to  be 


■0  s  0  - 

[  Tvert  ]  =  *S  0  0 

Lo  o  i  J 
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(5-18) 


Taking  the  appropriate  rotation  matrix  , either  Equ(5-17)  or  Equ(5-18),  to 
acquire  the  desired  rotation  transformation  matrix  [Rt],  the  member 
stiffness  matrix  in  the  structure  axes  is  obtained.  Then,  assembly  of  the 
contributions  from  each  member  to  a  joint,  or,  a  node  in  finite  element 
procedure,  yields  the  stiffness  matrix  of  a  unit  cell  as  expressed  in  equ(5-5). 

With  the  stiffness  matrix  of  a  unit  cell  being  known,  for  a  structural  shape 
which  consists  of  a  large  number  of  unit  cells,  a  system  of  equations  for  the 
total  structural  shape  can  be  assembled  using  the  individual  cell  relations 
following  the  finite  element  methodology.  From  the  solution  of  the 
equations,  the  stress  distribution  and  deformation  of  the  entire  structure 
under  applied  load  can  be  calculated  and  analyzed. 

NUMERICAL  SIMULATIONS 

The  FCM  was  implemented  by  the  use  of  computer  simulation.  With  basic 
parameters  in  a  unit  cell,  such  as  yarn  elastic  modulus,  fiber  volume 
fraction,  yarn  orientation  and  unit  cell  dimension  fully  characterized,  the 
applicability  of  the  FCM  to  predict  the  structural  response  of  composites 
will  be  demonstrated  experimentally. 

Finite  Element  Implementation  of  FCM 
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The  Finite  Cell  Model  just  described  has  been  implemented  into  finite 
element  program.  The  basic  ideas  of  the  Finite  Cell  Model  are  laid  out  as  a 
flow  chart  as  shown  in  Figure  5-6.  Figure  5-7  shows  the  more  detailed 
computational  flow  of  forming  stiffness  matrix  of  a  unit  cell.  By  entering 
the  basic  parameters  for  a  unit  cell  and  fiber/matrix  properties  to  the 
program,  the  load-deformation  and  elastic  properties  such  as  elastic 
modulus  and  Poisson's  ratio  of  the  composite  can  be  determined. 

In  addition,  the  results  of  structural  analysis  from  separate  studies  show 
that  the  truss  unit  cell  is  not  a  stable  structure.  Therefore,  the  frame  model 
is  carried  out  in  this  numerical  analysis. 

The  high  symmetry  composite  material  was  proposed  for  structures  with 
high  compression  capability.  The  primary  idea  is  to  put  high  modulus 
spheres  into  fiber  reinforced  materials.  The  fiber  architecture  discussed  in 
this  report  will  be  a  X-Y-Z  type  of  structure.  The  spheres  are  in  contact 
with  each  other  and  are  confined  by  reinforced  fibers.  Ceramic  material 
will  be  used  as  matrix  for  high  temperature  environment.  The  unit  cell  of 
the  high  symmetry  composite  is  illustrated  in  Figure  5-8.  From  the 
arrangement  of  fibers  and  spheres  in  this  figure,  the  unit  cell  dimension 
can  be  determined  as  the  diameter  of  each  individual  sphere. 
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Figure  5-6.  The  Flowchart  of  FCM  Finite  Element  Program. 
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Figure  5-7.  The  Flowchart  of  Stiffness  Matrix  Formulation 
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In  order  to  apply  the  finite  cell  modelling  to  the  unit  cell  of  high  symmetry 
composites,  the  representation  of  the  three  constituents  of  the  composites, 
i.e.,  matrix,  fiber  and  spheres,  need  to  be  discussed.  Consider  a  composite 
with  the  volume  fraction  of  matrix,  fibers  and  spheres  being  Vm,  Vf  and 
Vs,  respectively.  The  unit  cell  dimension  is  HxWxT.  Since  the  dimensions 

of  a  unit  cell  are  considered  to  be  the  center  lines  of  members  of  the  unit 
cell,  part  of  each  bar  lies  outside  the  unit  cell  in  real  case.  An  averaging 
method  for  the  determination  of  the  cross-section  areas  of  the  bars  was 
used.  Assuming  that  each  type  of  bars  have  the  same  cross-sectional  area. 
To  simplify  the  analysis,  assume  that  the  yarns  travelling  in  each  direction 
can  be  combined  into  four  yams  in  that  direction.  The  four  yarns  are 
assumed  to  travel  along  four  comers  in  that  direction.  In  this  sense,  the 
cross-sectional  area  of  the  fiber-bars  is  obtained  by  the  following  formula: 

Af  =  VffTWT  /  4(H+W+T) 

For  the  representation  of  the  sphere  in  a  unit  cell,  the  effective  sphere-bar 
with  certain  cross-section  area  will  be  assumed.  The  modulus  of  the 
sphere-bar  is  the  same  as  the  modulus  of  the  sphere.  The  cross-sectional 
area  of  the  sphere-bar  is  assumed  to  take  the  following  form: 

As  =  VSHWT  /  4(H+W+T) 

As  for  the  matrix,  which  is  used  to  transfer  load,  it  can  be  represented  as 
bars  along  the  three  orthogonal  axes.  The  cross-sectional  area  of  the 
matrix-bars  is  calculated  by  use  of  the  following  formula: 
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Am  =  VmHWT  /  4(H+W+T) 

In  the  present  case,  the  unit  cell  can  be  treated  as  a  cube.  Hence, 


H  =  W  =  T 

,  or,  the  length  of  each  bar  is  the  same  in  present  study.  The  cross-sectional 
area  of  fiber-bars,  sphere-bars  and  matrix-bars  can  be  rewritten  as  the 
following  form: 

Ai  =  VjH3  /  12H  =  VjH2  /  12 

where  i  could  be  a  fiber-bar,  sphere-bar  or  matrix-bar. 

From  the  above  discussions,  the  cross-sectional  area  and  length  of  each 
bar,  including  the  matrix-bar,  fiber-bar  and  sphere-bar,  are  formulated. 
The  matrix-bar,  fiber-bar  and  sphere-bar  are  modelled  to  travel  along  each 
edge  of  a  cubic  unit  cell.  For  the  analysis  purpose,  the  three  bars  need  to  be 
combined  into  a  composite  bar  with  individual  contribution  of  the  three 
bars.  The  resultant  properties  of  the  composite  bar  is  obtained  rule  of 
mixture  among  the  three  bars.  For  the  cross-sectional  area  of  the 
composite  bar,  Ac,  it  should  be  the  sum  of  the  cross-sectional  areas  of  the 

three  bars,  or, 

Ac  =  Af  +  Am  +  As 

For  the  modulus  of  the  composite  bar,  Ec,  it  can  be  obtained  in  the  following 
formula: 
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ACEC  -  EfAf  +  EmAm  +  ESAS 
and  the  shear  modulus  of  the  composite  bar  is 

1/GC  =  Vf/Gf  +  Vm/Gm  +  Vg/Gg 

For  a  sphere  in  a  X-Y-Z  architectured  unit  cell,  the  volume  of  the  sphere  is 
obtained  by  the  following  formula: 

Ds  =  (4/3MH/2)3 

Thus,  regardless  of  the  dimension  of  the  unit  cell,  the  volume  fraction  of  the 
sphere  in  a  unit  cell  is: 

Vs  =  Ds/H3  =  rt/6  =52.3% 

Therefore,  if  the  fiber  volume  fraction  is  20%,  the  volume  fraction  of  matrix 
is  27.7%. 

The  spheres  used  for  reinforcing  the  high  symmetry  composites  are  made 
of  alumina  with  modulus  being  56  Msi(386  GPa).  The  fibers  selected  for 
this  study  are  Nicalon  and  FP-5  fibers,  while  the  matrices  are  SiC,  alumina 
and  LAS-III.  The  modulus  of  the  materials  are  listed  in  the  following 
table: 
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FIBER 

FP-5  Nicalon 

23.3  Msi  28.5  Msi 

(161  GPa)  (197  GPa) 


MATRIX 

SiC  LAS-III  Alumina 

12.3  Msi  56  Msi  42  Msi 
(84.8  GPa)  (386  GPa)  (290  GPa) 


In  a  unit  cell  with  dimension  of  .2"x.2"x.2",  the  cross-sectional  areas  of  the 
fiber,  matrix,  sphere  and  composite  bars  are  listed  in  the  following  table: 


Vf 

Fiber 

Matrix 

Sphere 

Composite 

(%) 

(in2) 

(in2) 

(in2) 

(in2) 

20 

.000667 

.000923 

.001743 

.003333 

By  inputting 

the  above 

moduli,  cross- 

-sectional 

areas  and  unit  cell 

dimension  to  the  Finite  Cell  program,  the  response  of  the  unit  cell  structure 
under  compression  can  be  found.  Figure  5-9  shows  the  loading  condition 
and  boundary  conditions  of  a  specimen.  The  applied  load  was  divided  into 
several  steps  on  account  of  the  possible  nonlinear  load-deformation 
behavior  due  to  geometrical  conformation.  In  order  to  examine  the  effect  of 
matrix  reinforced  with  alumina  spheres,  the  predictions  of  the  composites 
without  spheres  are  performed  as  well.  The  comparison  of  the  stress- 
strain  curves  between  various  combinations  of  fibers,  matrices  and  spheres 
are  shown  in  Figure  5-10  to  5-13.  From  the  figures,  the  high  symmetry 
composites  with  sphere  reinforcements  have  higher  Young's  modulus. 
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Figure  5-10.  Compressive  Stress-Strain  Relationship  of  FP/SiC 
Composites  with/without  Sphere  Reinforcement. 


Figure  5-11.  Compressive  Stress-Strain  Relationship  of  FP/LAS 
Composites  with/without  Sphere  Reinforcement. 
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Figure  5-12.  Compressive  Stress-Strain  Relationship  of  Nic/SiC 
Composites  with/without  Sphere  Reinforcement. 


Figure  5-13.  Compressive  Stress-Strain  Relationship  of  Nic/LAS 


Composites  with/without  Sphere  Reinforcement. 


Stress,  Ksi  cn  Stress,  Ksi 
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14.  Compressive  Stress-Strain  Relationship  of  FP/Alu 
Composites  with/without  Sphere  Reinforcement. 


Figure  5-15.  Compressive  Stress-Strain  Relationship  of  Nic/Alu 
Composites  with/without  Sphere  Reinforcement. 
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To  summarize  from  Figure  5-10  through  Figure  5-15,  the  stiffness  of  the 
LAS-  and  Alumina-matrix  composites  with  sphere  reinforcement  showed  a 
higher  value  than  the  LAS  and  Alumina  -matrix  composites  without 
sphere  reinforcement.  However,  in  the  case  of  the  SiC-matrix  composites, 
no  significant  improvement  of  stiffness  was  shown.  The  reason  is  that  the 
modulus  of  embedded  sphere  is  the  same  as  that  of  the  matrix  SiC. 
Therefore,  the  reinforcing  effect  is  not  seen.  Hence,  the  addition  of  high 
modulus  spheres  into  softer  matrix  composites  shows  improved  modulus. 


The  other  method  to  account  for  the  effect  of  spheres  in  the  matrix  is  to  treat 
the  matrix  as  particulate-filled  system.  Thus,  the  effective  properties  of  the 
matrix  can  be  described  by  Kerner's  equation,  which  takes  the  following 
form  for  shear  modulus: 


/ 


'me  -  G  m 
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Vo  G 
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V, 


m 


(7-  5  Vm  )Gm  +  (8  - 10  gs  is  (1  -  Vm) 


V„  G 


s 


V, 


m 


(7- 5vm  )Gjji  +  (8  - 10  Vjjj  Qg  15  (1  -  Vj^) 


/ 


where  V  represents  volume  fraction,  and  subscripts  m  and  s  represent 
matrix  and  sphere  phases,  respectively.  Conversion  of  shear  to  tensile 
modulus  may  be  made  by  using  the  isotropic  relation 

Eme  *  2<W1+V> 
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where  the  Poisson's  ratio,  V,  is  given  by  a  rule-of-mixture  expression 


With  this  consideration,  the  cross-sectional  area  of  the  fiber-bars  is 
calculated  by  the  previous  formula: 

Af  =  VfHWT  /  4(H+W+T) 


As  for  the  sphere-filled  matrix,  the  cross-sectional  area  of  the  effective 
matrix-bars  is  calculated  by  use  of  the  following  formula: 

Ame  =  (Vm  +VS)HWT  /  4(H+W+T) 


The  resultant  properties  of  the  composite  bar  is  obtained  by  rule  of  mixture 
among  the  two  bars.  For  the  cross-sectional  area  of  the  composite  bar,  Ac, 

it  should  be  the  sum  of  the  cross-sectional  areas  of  the  three  bars,  or, 

Ac  =  Af  +  Ame 

For  the  modulus  of  the  composite  bar,  Ec,  it  can  be  obtained  in  the  following 
formula: 

ACEC  =  EfAf  +  EmeAme 
and  the  shear  modulus  of  the  composite  bar  is 

1/GC  =  Vf/Gf  +  (Vs+Vm)/Gme 
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By  inputting  the  effective  moduli,  cross-sectional  areas  and  unit  cell 
dimension  to  the  Finite  Cell  program,  the  response  of  the  unit  cell  structure 
under  compression  can  be  found. 

Figure  5-16  and  Figure  5-17  show  the  effect  of  sphere  volume  fraction  and 
fiber  volume  fraction,  respectively. 
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Figure  5-16.  The  effect  of  sphere  volume  fraction  on  Compressive 
Stress-Strain  Relationship  of  Nic/LAS  Composites. 
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Figure  5-17.  The  effect  of  sphere  volume  fraction  on  Compressive 
Stress-Strain  Relationship  of  Nic/LAS  Composites. 


In  Finite  Cell  Modelling,  the  basic  assumption  on  material-bar 
representations  simplifies  the  analysis  of  high  symmetry  composites.  The 
treatment  of  composite  bar  by  use  of  the  rule-of-mixture  stems  from  the 
complexity  of  the  interaction  between  fiber,  sphere  and  matrix.  The  actual 
composite  behavior  around  sphere  surface  and  sphere-fiber  contact  points 
is  very  complicated.  In  addition  to  compressive  stress,  the  shear  stress, 
which  transfers  the  load  from  sphere  and  fiber  to  matrix,  takes  place.  The 
neglect  of  the  shear  stress  may  result  in  an  inaccurate  prediction  of  elastic 
behavior.  But,  i'e  degree  of  inaccuracy  is  not  under  consideration  in  Finite 
Cell  Modelling.  The  predictions  should  be  evaluated  by  experimental 
results.  Further  studies  on  this  model  to  investigate  the  interaction 
between  fiber  and  matrix  have  to  be  conducted.  The  load  transfer 
mechanism  between  fibers,  spheres  and  matrix  as  well  as  the  effect  of  fiber 
architecture  in  a  unit  cell  needs  to  be  explored.  This  may  lead  to  a  3-D  solid 
element  modelling  on  the  unit  cell  of  a  high  symmetry  composite. 
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A  3-D  finite  element  code  for  analyzing  the  deformation  of  hollow  spheres 
was  developed  and  is  discussed  in  the  following  section.  This  program  can 
be  integrated  with  finite  cell  modelling  to  further  investigate  the  the  effect  of 
fiber/sphere  interaction. 
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CHAPTER  SIX 

FABRICATION  OF  HIGH  SYMMETRY  COMPOSITES 

In  order  to  implement  the  concept  of  high  symmetry  structures,  a  method 
for  the  creation  of  a  3-D  fiber  network  and  the  placement  of  the  sphere  was 
developed. 

The  hexagonal  braiding  machine  (HBM)  consists  of  the  following 
components: 

*  motion  motor  array  (MMA) 

*  locating  system  (LS) 

*  sphere  feeding  mechanism  (SFM) 

*  hexagonal  drivers  (HD) 

*  sphere  tank  (ST) 

*  carriers  (C) 

*  take  down  mechanism  (TDM) 

As  illustrated  in  Figure  6-1,  the  MMA  consists  of  step  motors  and  control 
units  connected  directly  to  a  computer  which  offers  precise  control  of 
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independent  motion  for  each  yarn  carrier.  Figure  6-la  is  a  schematic 
illustration  of  the  hexagonal  braiding  machine  (HBM).  The  motion  motor 
array  (MMA)  is  the  principal  driver  which  propels  the  carriers  in  a 
hexagonal  pattern  to  create  various  fibrous  networks  that  can  range  from 
orthogonal  to  the  close-to-cubic  3-D  quadraxial  structure.  The  locating 
system  along  with  sphere  feeding  mechanism  meter  the  spheres  into  the 
fibrous  network  after  each  braiding  operation.  These  operations  are 
followed  by  a  take-down  motion  which  collects  the  3-D  fiber/sphere  assembly 
into  a  storage  package  for  composite  fabrication. 

To  facilitate  the  fabrication  process  and  assure  reproducibility  and 
numerical  control  system  is  organized  and  implemented  through  a 
computer.  The  control  logic  and  data  flow  are  shown  in  Figure  6-2.  The 
resulting  structures  which  can  be  created  by  the  HBM  are  illustrated  in 
Figure  6-3.  In  Figure  6-4  a  model  of  the  high  symmetry  system  is  shown. 
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Figure  6-la  Schematic  Illustration  of  the  Hexagonal  Braiding  Machine. 


Basic  Cellular  Loom  Module 


Figure  6- lb 


Hexagonal  Drive 
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Figure  6-lc 
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Figure  6-2  Control  Logic  and  Data  Flow  of  Hexagonal  Braiding  Machine. 


Demonstration  of  design  concept  and  modelling  of 
high-symmetry  composites 
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I 
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Figure  6-3 
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CHAPTER  SEVEN 

CONCLUSIONS  AND  RECOMMENDATIONS 


In  the  interest  of  developing  toughened  and  hardened  composite  systems, 
the  concept  of  structural  symmetry  by  the  placement  of  spheres  in  a  3-D 
fiber  network  was  examined.  By  employing  a  3-D  fiber  architecture,  the 
composite  system  is  anticipated  to  be  toughened  by  the  3-D  fiber  network 
through  complex  interaction  of  toughening  mechanism.  The  spheres, 
when  strategically  placed  in  a  prearranged  fiber  network,  will  contribute  to 
the  hardening  of  the  composite. 


To  demonstrate  this  concept  of  High  Symmetry  Composite  (HSC),  a 
systematic  study  was  carried  out  and  organized  into  three  parts: 

Part  I.  Classification  of  3-D  Fiber  Architecture 

Part  II.  Modelling  of  High  Symmetry  Systems 


Part  III.  Demonstration  of  Concept 
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In  Part  I  of  this  study,  3-D  fiber  architectures  were  classified  according  to 
the  method  of  manufacture,  symmetry  and  geometric  isotopy.  It  was 
concluded  that  a  classification  scheme  based  on  geometric  isotopy  provides 
the  most  efficient  and  useful  method  for  the  modelling  of  the  3-D  composite 
system. 


The  modelling  effort  in  Part  II  of  the  study  consists  of  the  development  of  a 
finite  element  code  for  the  sphere;  a  finite  cell  model  (FCM)  for  the  3-D  fiber 
network.  The  sphere  routine  is  capable  of  handling  elastic  and 
elastoplastic  materials  for  laminated  shell  of  isotropic  and/or  orthotropic 
layers  under  radial  and  tangential  surface  forces,  as  well  as  internal 
pressure  loading.  The  finite  cell  code,  on  the  other  hand,  was  developed 
based  on  the  idealization  of  the  unit  cell  geometry  in  terms  of  truss  systems. 
According  to  the  principle  of  virtual  work,  the  nodal  forces  within  the  cell 
structure  are  related  to  the  nodal  displacement  by  a  stiffness  matrix  [K]. 
This  finite  cell  code  has  been  employed  to  predict  the  tensile  stress-strain 
relationship  of  chemical  vapor  infiltrated  (CVI)  3-D  braided  Nicalon 
SiC/SiC  composites.  With  a  volume  fraction  of  0.4  and  using  a  1  x  1 
braiding  pattern  for  the  Nicalon  yarn,  the  theoretical  prediction  of  the 
tensile  stress-strain  relationship  agrees  reasonably  well  with  the 
experimental  results  as  shown  in  Figure  7-1. 


Stress  (ksi) 
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Figure  7-1 
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Using  the  FCM,  parametric  studies  were  carried  out  for  various  ceramic 
matrix  composite  systems.  As  expected,  the  inclusion  of  the  sphere 
reinforcement  does  improve  the  compressive  stiffness. 


In  order  to  transform  the  high  symmetry  composite  concept  to  reality,  there 
is  a  need  for  a  mechanism  to  create  the  structure.  Part  III  of  this  study  is 
dedicated  to  this  effort.  Unfortunately,  due  to  the  shortage  of  funding  for 
the  third  year,  only  the  manufacturing  methodology  was  explored.  The 
proposed  method  is  based  on  a  hexagonal  braiding  process  which 
incorporates  a  sphere  feeding  mechanism.  This  manufacturing  system 
was  designed  with  full  support  of  computer  logic  flow.  Accordingly,  when 
the  prototype  machine  is  built,  a  numerically  controlled,  reproducible 
preforming  system  will  be  available  for  the  manufacturing  of  high 
symmetry  composites. 


Finally,  it  must  be  concluded  that  although  the  concept  of  high  symmetry 
composites  has  been  theoretically  and  conceptually  demonstrated  which 
simulated  results  and  preforming  mechanism,  a  considerable  amount  of 
work  remains  to  be  done  in  the  verification  of  the  model  and  design 
concepts.  It  is  recommended  polymer  and  ceramic  matrix  composites  with 
3-D  fiber/sphere  reinforcements  to  be  fabricated,  first  manually  and  then  on 
the  hexagonal  braiding  machine  (when  it  is  available).  Tensile  and 
compressive  tests  will  be  performed  on  these  composites.  The  failure 
modes  will  be  characterized  by  fractography.  It  is  further  recommended 


176 


that  further  work  be  carried  out  to  link  the  sphere  code  to  the  finite  cell  code 
such  that  the  interaction  of  the  3-D  fiber  network  with  the  sphere  be  fully 
explored. 
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APPENDIX  A 


LISTING  OF  FINITE  CELL  MODELLING  PROGRAM 


—  THIS  PROGRAM  IS  DESIGNED  TO  DEMONSTRATE  THE  CONCEPT  AND  FORMULATIONS 

—  OF  FINITE-CELL  MODELLING  for  X-Y-Z  fiber  reinforced  composites. 

The  maximun  number  of  unit  cells  of  this  program  is  5. 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /ARR/  DISP (72) , FORCE (72) , FORCE1 (72) , DISP1 (72) 

COMMON  /ARR1/  FORCE2 (72) , CORD (72 ) , COOR (72 ) 

C HARACTER* 2 0  INFILE, OUTFIL 

COMMON  /PARAM/  E  (4) , G  (4) , A (4 ) , DIA (4) , FR, EA (4) , EAL (4 ) 

COMMON  /REDUCT/  IRN, IRDOF, IR2, IRR2, IR1,  IR5, IK6, IRR6 
COMMON  /NUMBER/  NCELL,  NOD, NDOF, NBC, NFORCE, NSTEP, ITER 
COMMON  /INDEX/  IND (72) , IBC (72 ) , KL (72 ) , IREDUCE (72) , IDELE ( 6,  8 ) 

COMMON  / STIF1/  STIFF  (72, 72) 

COMMON  /STIF/  STIFF1  (48, 48) , COR(24,  3) 

COMMON  /MCONN/  MCN(6,16,2) 

COMMON  /MATRIX/  B (72,72) 

COMMON  /VALUE/  RATIOl, RATI02, RATIO, TD IS 
CHARACTER* 1  ANS 

--  OPEN  INPUT  DATA  FILE  - 

OPEN  (UNIT=10, FILE=' INFILE ' , STATUS='OLD 1 ) 

—  READ  THE  NUMBER  OF  UNIT  CELLS  - 

READ (10,*)  NCELL 

—  READ  THE  COORDINATES  OF  EACH  NODE  - 

READ (10,*)  NOD 
NDOF=6*NOD 
DO  20  1=1, NOD 

READ (10,2001)  COR (1,1) , COR (1,2) , COR (I, 3) 

2C  CONTINUE 

--  STORE  THE  CELL  CONNECTION  - 

DO  25  1=1, NCELL 

25  READ(10,*)  (IDELE (I, J),  J=l,8) 

--  STORE  THE  UNIT  CELL  MEMBER  CONNECTION 

DO  27  I  =  1, NCELL 

READ (10,*)  (MCN (I,  J, 1) , J=l, 12) 

READ (10,*)  (MCN (I, J, 2) , J=l, 12) 

O'7  CONTINUE 

--  ENTRY  OF  BOUNDARY  CONDITIONS  FOR  DISPLACEMENTS  - 

DO  30  1=1, NDOF 
32  IND (I) =1 

READ  (10, * )  NBC 

IND  =  0  (FIXED  SUPPORT) ,  IND  =  1  (FREE  SUPPORT)  - 

DO  35  1=1, NBC 
R£AD(10,*)  IBC (I) 

IBC1=6* (IBC (I) ) -5 
IBC2=6* (IBC (I) ) -4 
IBC3=6* (IBC (I) ) -3 
IBC4=6* (IBC (I) ) -2 
IBC5=6* (IBC(I) ) -1 
IBC6=6* (IBC (I ) ) 

35  READ(10,*)  IND (IBC1) , IND (IBC2) , IND (IBC3) , IND (IBC4) , IND (IBC5) , 


&  IND (IBC6) 


--  ENTRY  OF  BOUNDARY  CONDITIONS  FOR  FORCES 

DO  40  I=l,NDOF 
FORCE (I) =0.0 
FORCE 1 (1)=0.0 
DISP (I) =0 . 0 
DISP1 (I)=0.0 
C  CONTINUE 

READ (10,*)  NFORCE 
DO  43  1=1, NFORCE 
READ (10,*)  IFORC 
IFORCl=6*IFORC-5 
IFORC2=6*IFORC-4 
IFORC3=6*IFORC-3 
IFORC4=6*IFORC-2 
IFORC5=6*IFORC-l 
IFORC 6=6* IFORC 

READ (10, *)  FORCE (IFORC1) , FORCE (IFORC2)  ,  FORCE (IFORC3)  , 
&  FORCE ( I FORC  4 ) , FORCE ( I FORC  5 )  ,  FORCE ( I FORC  6 ) 

3  CONTINUE 

-  MATERIAL  PROPERITIES 

READ (10, 2001)  VF, VFB, VM 

READ (10, 2002)  EF, PF, EM, PM, EBALL 

READ (10,2001)  HEIGHT, WIDTH, THICK 

READ(10,*)  NX, NY, NZ 

HL=HEIGHT 

WL=WIDTH 

TL=THICK 

ABALL=VFB*HL*WL*TL/ (4 . * (HL+WL+TL) ) 

AF  =  VF*HL*WL*TL/ (4.* (HL+WL+TL) ) 

AM  =  VM*HL*WL*TL/ (4 . * (HL+WL+TL) ) 

AC  =  AF  +  AM  +  ABALL 
print  *,  af , am, aball, ac 
E3ALLX  =  (EBALL/ABALL) *HL 
eballx  =  eball 
EBALLY  =  EBALLX 
E3ALLZ  =  EBALLX 
GF  =  EF/ (2 . +2 . *PF) 

GM  =  EM/ (2 . +2 . *PM) 

GB  =  EBALL/ (2. +2. *.3) 

A  ( 1 )  =  AC 

A (2)  =  AC 

A (3)  =  AC 

acl=af /ac 

ac2=am/ac 

ac3=aball/ac 

print  *,  acl,ac2,ac3 

E (1) = (AF*EF+AM*EM+EBALLX* ABALL) /A ( 1 ) 

E (2)  =  ( AF  *  EF + AM*  EM+  E BALLY  * ABALL ) /A (2) 

E ( 3) = (AF*EF+AM*EM+EBALLY*ABALL) /A (3) 

if (vfb.eq.0. )  then 

GC  =  1./ (PF/GF+PM/GM+. 3/GB) 

endif 

gc  =  1 . / (pf/gf+pm/gm) 

G  (1)  =  GC 
G (2)  =  GC 
G (3)  =  GC 

DIA(1)=DSQRT(4.*A() )/3. 14159) 

DIA (2) =DSQRT (4.*A(2)/3.14159) 

DIA ( 3) =DSQRT (4.*A(3)/3.14159) 


EA  (1)  =E  (1 )  *A  (1) 

EA{2) =E (2) *A(2) 

EA  ( 3 )  =E  ( 3 )  *  A  ( 3 ) 

EAL(1)=EA(1)  /HL 
EAL(2)=EA(2)  /WL 
EAL(3)=EA<3) /TL 

2001  FORMAT (3F10.0) 

2002  FORMAT (5F10.0) 
r 

CLOSE (UNIT=10) 

C 

DO  55  1=1, NDOF 
55  COOR ( I ) =0 . 

DO  60  I  =  1, NOD 

11  =  6*1-5 

12  =  6*1-4 

13  =  6*1-3 

COOR (II)  =  COR (1,1) 

COOR (12)  =  COR (I, 2) 

COOR (13)  =  COR (I,  3) 

60  CONTINUE 

PRINT  *,  '  HOW  MANY  STEPS  ? 

READ (5,*)  NSTEP 

PRINT  * ,  '  ENTER  LOAD  INCREMENT 
READ (5,*)  DLOAD 


C 

r  -  - 


PRINT  *, '  ENTER  THE  RATIO  OF  FRAME  JOINT  ' 
READ (5, *)  FR 

PRINT  *, '  ENTER  ULTIMATE  STRENGTH  (  KSI  )  ’ 
READ (5,*)  UTS 

INCREMENTAL  LOAD  LOOP  STARTS  HERE 
OPEN (UNIT=50, FILE=' OUTFIL' ,STATUS=' UNKNOWN' ) 


WRITE  (50, 


* )  '  NSTEP  ’ , '  DLOAD  1 

1007)  NSTEP, DLOAD, FR, UTS 
*) 

*) 

1  ,  ’  FR 

I  t 

r 

UTS 

*)  '  EX  ',  'EY 

1008)  E 
*) 

',  'EZ 

’  ,  'EB 

*)  '  AX  ',  'AY 

1008)  A 
*) 

' ,  'AZ 

' ,  'AB 

* )  '  DX  ' , ' DY 

'  ,  'DZ 

'  ,  'DB 

WRITE (50, *) 

WRITE (50,*)  '  PX  ' 

WRITE (50,  1008)  PX 
WRITE (50, *) 

WRITE (50, *)  '  HL  ','WL 

WRITE (50, 1008)  HEIGHT, WIDTH, THICK 
WRITE (50,*) 

WRITE (50, *)  '  NX','  NY','  NZ  ’ 

WRITE (50, 1010)  NX,NY,NZ 
WRITE (50, *) 

WRITE (50,*)  '  EAX  ','EAY 

WRITE (50, 1008)  EA 
WRITE (50, *) 

WRITE (50, *)  '  EAX/L  ','EAY/L 

WRITE (50, 1008)  EAL 


'TL 


'  EAZ 


'EAZ/L 


'  EAB 


' EAB/L 


WRITE (50, *) 

WRITE (50, *) 

WRITE (50,*)  'DATA  OF  3-NODE  ' 

WRITE (50,  *) 

WRITE (50,*)  '  FORCE  STRESS  ' 

&Exx  ' ,  '  Vxy  ' 

DO  1000  ILOOP=1 , NSTEP 

RATI01=4 . *ILOOP*DLOAD/ (WIDTH*THICK) 

RAT 1 0=D LOAD  * (ILOOP) 

-  ITERATION  OF  ONE  STEP  LOAD  STARTS  HERE 

DO  999  ITER=1 , 10 
-  FORM  STIFFNESS  MATRIX 


DO  99  1=1 , NDOF 
DO  99  J=1 , NDOF 
99  STIFF (I, J) =0 . 

DO  98  1=1,48 
DO  98  J=l, 48 
93  STIFF1 (I, J) =0 . 

DO  100  KK=1, NCELL 

-  OPERATION  ON  LOCAL  ELEMENT 

DO  110  L=1 , 8 
LI=IDELE (KK, L) 

Ll=6*L-5 

L2=6*L-4 

L3=6*L-3 

L4=6*L-2 

L5=6*L-1 

L6=6*L 

KL(Ll)=6*LI-5 

KL(L2)=6*LI-4 

KL(L3)=6*LI-3 

KL(L4)=6*LI-2 

KL(L5)=6*LI-1 

KL(L6)=6*LI 

10  CONTINUE 


CALL  FORM (48, KK) 


-  STORE  LOCAL  [K]  TO  GLOBAL  [K] 


DO  120  1=1,48 
DO  120  J=l, 48 
IX=KL ( I ) 

IY=KL ( J) 

STIFF (IX, IY) =STIFF (IX, IY) +STIFF1  (I,  J) 
20  CONTINUE 
00  CONTINUE 

IF (ITER.EQ. 1)  THEN 

GOTO  170 

ENDIF 


STRAIN 


CALCULATE  BIASED  LOAD 


FOR  ITERATION 


c 

DO  150  1=1, NDOF 
FORCE2 (I ) =0 . 

DO  150  J=1 , NDOF 

FORCE2 (I) =STIFF (1, J) *DISP1 ( J) +FORCE2 (I) 

150  CONTINUE 

RATI02=RATI0-F0RCE2 (1) 

IF (RATI02.LT. 0.001)  THEN 

GOTO  400 

ENDIF 

C 

c  -  APPL i  BOUNDARY  CONDITIONS  TO  FEDUCF  THE  SIZE  OF  GLOBAL  [K] 

C 

170  J=0 

DO  200  1=1, NDOF 

IF (IND (I) .EQ. 0)  THEN 

J=I+1 

I REDUCE ( J) =1 
ENDIF 

200  CONTINUE 
IRN=J 

C  -  COLUMN  REDUCTION 

IR2=1 

DO  210  IR1=1 , NDOF 
IF (IR2 . GT. IRN)  THEN 
GOTO  215 
ENDIF 

IF (IR1 -EQ.  IREDUCE (IR2) )  THEN 

IR2=IR2+1 

GOTO  210 

ENDIF 

215  IRR2=IR1-IR2+1 

FORCE 1 (IRR2) =FORCE (IR1) 

DO  216  IR3=1 , NDOF 

216  STIFF (IRR2, IR3) =STIFF (IR1,  IR3) 

210  CONTINUE 

IRDOF=IRR2 

C  -  ROW  REDUCTION 

C 

IR6=1 

DO  250  IR5=1, NDOF 
IF (IR6.GT.IRN)  THEN 
GOTO  255 
ENDIF 

IF (IR5.EQ.  IREDUCE (IR6) )  THEN 

IR6=IR6+1 

GOTO  250 

ENDIF 

255  IRR6=IR5-IR6+1 

DO  256  IR7=1, IRDOF 

256  STIFF (IR7, IRR6) =STIFF (IR7, IR5) 

250  CONTINUE 

C 

C  -  CALCULATE  INVERSE  OF  REDUCED  [K] 

£ 

DO  260  1=1, IRDOF 
DO  260  J=l, IRDOF 
I  260  B (I, J) =STIFF (I,  J) 


I 


CALL  INV (IRDOF) 


275  DO  300  1=1 , IRDOF 
DISP (I) =0 . 

DO  300  J=l, IRDOF 

300  DISP (I) =B (I, J) *FORCEl (J) *RATIO+DISP (I) 

C  -  RESTORE  THE  DISPLACEMENTS 

c 

IR8=1 

DO  350  1=1 , NDOF 

IF (IREDUCE (IR8) .EQ.I)  THEN 

IR8=IR8+1 

GOTO  350 

ENDIF 

IR9=I-IR8+1 
DISP1 (I) =DISP (IR9) 

350  CONTINUE 

C  -  CALCULATE  THE  DISPLACED  COORDINATES 

DO  380  1=1, NDOF 
330  CORD (I ) =COOR (I ) +DISP1 (I ) 

DO  390  I  =1 , NOD 

11  =  6*1-5 

12  =  6*1-4 

13  =  6*1-3 

COR  (1, 1)  =  CORD  (ID 
COR (I, 2)  =  CORD (12! 

COR (1,3)  =  CORD (13) 

39C  CONTINUE 
999  CONTINUE 

;  -  PRINT  OUT  THE  RESULTS 

400  TDIS=CORD (13) -COOR (13) 

YDIS=CORD (14) -COOR (14) 

ZDIS=CORD(15) -COOR (15) 

STRAIN=TDIS/ HEIGHT 
SY  =  YDIS/WIDTH 
SZ  =  ZDIS/THICK 
Exx  =  RATIOl /STRAIN 
Vxy  =  -SY/STRAIN 
Vxz  =  -SZ/STRAIN 

WRITE (50, 1006)  RATIO, RATIOl, STRAIN, Exx, Vxy 

C  - THE  END  OF  THE  LOOP 

UTS1  =  1000. *UTS 
IF (RATIOl. GT.UTS1)  THEN 
GOTO  500 
ENDIF 

1000  CONTINUE 
500  WRITE(50,  *) 

WRITE ( 50,  * ) 

WRITE (50,*)  'FINAL  DISPLACEMENT  OF  ALL  NODES  ' 
WRITE (50, *) 

WRITE (50,*)  'X  ' , '  Y  ' ,  '  Z 

4  NO.  ' 

DO  501  1=1, NOD 

'  Jl=6*I-5 

J2=6*I-4 

IJ3=6*I-3 

WRITE (50, *) 

501  WRITE (50, 1009)  DISP1 ( Jl) , DISP1 ( J2) , DISP1 ( J3) , I 

I 


WRITE  (50,  *) 

WRITE (50,*)  'FINAL  ROTATION  ’ 

DO  505  1=1, NOD 
Jl=6*I-2 
J2=6*I-1 
J3=6*I 
WRITE (50,*) 

505  WRITE (50, 1009)  DISP1 ( Jl) , DISP1 ( J2)  ,  DISP1 ( J3)  ,  I 
CLOSE (UNIT=50) 

C 

1001  FORMAT (/’REDUCED  [K]  ILOOP  =  ',13,'  ITER  =  ',13) 

1002  FORMAT (/2E16. 6) 

1003  FORMAT (/’INVERSE  [K]  ILOOP  =  ',13,'  ITER  =  ’,13) 

1004  FORMAT (/12E10. 3) 

1005  FORMAT (/4E16. 7) 

1006  FORMAT (/5E14 . 5) 

1007  FORMAT (/I10, 3F12.2) 

1008  FORMAT (4E12. 4) 

1009  FORMAT ( 3E1 4 . 5 , I 6 ) 

1010  FORMAT (2X, 315) 

C 

511  STOP 
END 

cccccccc - 

C 

C  -  THIS  SUBROUTINE  IS  TO  FORM  THE  CELL  STIFFNESS  MATRIX 

SUBROUTINE  FORM (IQAZ , KK) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /STIF/  STIFF1  (48, 48) ,C0R(24, 3) 

COMMON  /MCONN/  MCN(6,16,2) 

COMMON  /PARAM/  E (4 ) , G ( 4 ) , A (4) , DIA (4 ) , FR 
DIMENSION  SM (12, 12) , SR (12, 12) , SK (12,12)  ,  GK (48,  ^3 ) 
DIMENSION  RM(3, 3) ,RTM(12, 12) 

INTEGER  IQAZ 


DO  100  I  =  1 ,  IQAZ 
DO  100  J  =  1 , IQAZ 
100  STIFF1 (I, J) =0 . 0 

C -  FORM  THE  COORDINATE  TRANSFER  MATRIX  [Rj 

r • 

DO  600  M  =  1,12 
II  =  MCN (KK,M, 1 ) 

JJ  =  MCN (KK,M, 2) 

X  =  COR ( JJ, 1) -COR (II,  1 ) 

Y  =  COR(JJ, 2) -COR (II, 2) 

Z  =  COR (JJ, 3) -COR (II,  3) 

SL  =  DSQRT (X*X+Y*Y+-Z*Z) 

R  =  X/SL 
S  =  Y/SL 
T  =  Z/SL 

l  RT  =  DSQRT (R*R+T*T) 

1  601  FORMAT (/8E15. 5) 

jc  -  [R]  FOR  MEMBERS  THAT  ARE  IN  THE  DIRECTION  OF  Y-AXIS 

IF (RT.LT. 0.001)  THEN 

IRM(1, 1) =0 . 

RM(1,2)=S 
RM(1, 3) =0 . 

RM(2, 1) =-S 

I 


RM  (2, 2)  =0  . 

RM(2, 3) =0 . 

RM  (3, 1)  =0 . 

RM(3,  2)  =0 . 

RM (3,  3)  =1 . 

ELSE 

C 

C -  [R]  FOR  OTHER  MEMBERS 

C 

RM(1, 1) =R 
RM(1,  2) =S 
RM  (1 , 3) =T 
RM (2, 1) =-R*S/RT 
RM(2, 2) =RT 
RM (2, 3) =-S*T/RT 
RM(3, 1) =-T/RT 
RM  (3, 2)  =0  . 

RM(3,  3)  =R/RT 
ENDIF 

DO  102  1=1,12 
DO  102  J=l, 12 
102  RTM (I, J) =0 . 

DO  105  1=1,3 
DO  105  J=l, 3 
RTM (I, J) =RM(I,  J) 

RTM (1+3, J+3) =RM (I, J) 

RTM  (1+6, J+6) =RM(I, J) 

RTM (1+9, J+9) =RM (I, J) 

105  CONTINUE 
C 

C  — -  GET  MATERIAL  PROPERTIES  FOR  EACH  MEMBER 

IF (M-4)  110,110,115 
110  N  =  1 

GO  TO  150 

115  IF (M-8)  120,120,125 
120  N  =  2 

GO  TO  150 

125  IF (M-12)  130,130,130 
130  N  =  3 

150  H  =  3.14159*DIA(N)**4./64. 

Q  =  E(N)*A(N)/SL 
F  =  (12 . *E (N) *H/SL**3 . ) *FR 
B  =  (6 . *E (N) *H/SL**2 . ) *FR 
C  =  (2 . *E (N) *H/SL) *FR 
D  =  (2 . *G (N) *H/SL) *FR 

n 

C  -  FORM  MEMBER  STIFFNESS  MATRIX  [SM] 

C 

155  DO  160  I  =  1,12 
DO  160  J  =  1,12 
160  SM(I, J)  =  0. 

SM (1,1)  =  Q 

SM  (1,7)  =  -Q 

SM (2,2)  =  F 

SM (2,6)  =  B 

SM  (2,8)  =  -F 

SM ( 2 , 1 2 )  =  B 
SM(3, 3)  =  F 

SM ( 3 , 5 )  =  -B 

SM ( 3 , 9 )  =  -F 

SM(3, 11)  =  -B 
SM ( 4 , 4 )  =  D 


I 

I 

I 


SM{4, 10)  =  -D 
SM  (5,5)  =  2 . *C 

SM (5,9)  =  B 

SM(5, 11)  =  C 
SM(6,  6)  =  2 .  *C 

SM(6, 8)  =  -B 

SM(6, 12)  =  C 
SM (7,7)  =  Q 

SM ( 8 , 8 )  =  F 

SM  (8, 12)  =  -B 
SM  (9,  9)  =  F 

SM(9, 11)  =  B 
SM (10, 10) =  D 
SM(11, 11) =  2 . *C 
SM (12, 12) =  2 . *C 
C 

C  -  APPLIED  SYMERTIC  CONDITION 

DO  170  I  =  1,11 
DO  170  J  =  1+1,12 
170  SM ( J, I)  =  SM ( I , J) 

C -  FORM  [SM]  [R] 

DO  175  I  =  1,12 
DO  175  J  =  1,12 
SR (I, J)  =  C. 

DO  175  K  =  1,12 

175  SR (I, J)  =  SR (I, J) +SM (I, K) *RTM (K,  J) 

C -  FORM  [RT]  [SM]  [R] 

DO  185  I  =  1,12 
DO  185  J  =  1,12 
SK (I, J)  =  0. 

DO  185  K  =  1,12 

185  ,K(I,J)  =  SK (I, J) +RTM(K,  I) *SR (K,  J) 

r* 

Z  -  STORE  MEMBER  STIFFNESS  [SK]  IN  TO  UNIT  CELL  STIFFNESS  MATRIX 

DO  195  I  =  1,48 
DO  195  J  =  1,48 
195  GK (I, J)  =  0. 

II=MCN (1,M, 1) 

JJ=MCN(1,M, 2) 

DO  200  12  =  1,12 
IF (12 . LT. 7)  THEN 
13  =  (II-l) *6+12 
ELSE 

13  =  (JJ-1) *6+12-6 
ENDIF 

DO  200  J2  =  1,12 
IF ( J2 .LT. 7)  THEN 
I  J3  =  (II-l ) *6+ J2 

|  ELSE 

J3  =  (JJ-1) *6+J2-6 

I  ENDIF 

GK (13, J3)  =  SK (12, J2) 

200  CONTINUE 

DO  210  I  =  1,48 

>DO  210  J  =  1,48 

210  STIFF1 (I, J)  =  STIFF1 (I, J) +GK (I,  J) 

600  CONTINUE 
RETURN 

I 


n  n  o  o  o 


END 


SUBROUTINE  FOR  MATRIX  INVERSION 


SUBROUTINE  INV(N) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 
COMMON  /MATRIX/  B(72,72) 

DIMENSION  A (72, 144) 

EPS=1 . E-18 
DO  100  1=1, N 
DO  100  J=1,N 
100  A  (I,  J)  =B  (I,  J) 

L=N+1 

M=2*N 

DO  200  1=1,  N 
DO  200  J=L,M 
A (I,  J) =0 . 

IF (I+N-J)  200,210,200 
210  A (I, J) =1 . 

200  CONTINUE 

DO  300  1=1, N 
K=I 

IF(I-N)  10,40,10 
10  IF (A (I, I) -EPS)  20,30,40 
20  IF ( -A (1,1) -EPS )  30,30,40 
30  K=K+1 

DO  35  J=1,M 

35  A  (I,  J)  =A  (I,  J)  +A  (K,  J) 

GO  TO  10 
40  DIV=A (1,1) 

DO  50  J=1,M 
50  A(I, J)=A(I, J)/DIV 
DO  300  K=l, N 
DELT=A(K, I) 

IF (DABS (DELT) -EPS)  300,300,60 
60  IF(K-I)  70,300,70 
70  DO  80  J=1,M 
80  A  (K,  J)  =A  (K,  J)  -A  (I,  J)  *DELT 
300  CONTINUE 

DO  400  1=1, N 
DO  400  J=L,M 
K=J-N 

B  (I,  K)  =A  (I,  J) 

400  CONTINUE 
RETURN 
END 


If. 


APPENDIX  B 

A  FINITE  ELEMENT  CODE  FOR  HOLLOW  SPHERES 


I 

I 


I 


FINITE  ELEMENT  CPHE  FOR  HOLLOW  SPHERES 


INTRODUCTION 

The  hollow  sphere  is  a  major  component  in  the  high  symmetry  ceramic 
matrix  composite  which  is  studied  in  this  research.  Fig.  1  illustrates  the 
conceptual  unit  cell  of  the  composite  in  which  closely  packed  spheres  are 
embedded  in  the  3-D  fiber  network.  To  describe  the  load-deformation 
response  of  the  total  unit  cell  and  the  internal  stresses  in  the  constituent 
components  of  the  unit  cell,  the  response  of  the  individual  spheres  must  be 
described  first  and  then  incorporated  in  the  total  UNIT  CELL  model. 

Since  the  UNIT  CELL  model  has  been  described  elsewhere  in  this 
report,  this  section  present  only  the  results  stemming  from  our  efforts  in 
developing  a  finite  element  code  for  a  single  sphere  which  is  subjected  to 
surface  forces,  internal  pressure  and/or  thermal  loading. 

GENERAL  CHARACTERISTICS  OF  THE  FINITE  ELEMENT  CODE 

The  finite  element  code  is  developed  based  on  the  so-called 
degenerated  quadratic  plate/sheil  element  formulation  found  in  the  outlines 
of  Hinton  and  Owen  [1].  In  essence,  the  usual  assumptions  made  in  the 
simple  plate/sheil  theories  continue  to  be  valid  in  the  formulation  of  the 
code.  These  include  the  assumptions  of  simple  bending:  the  omission  of 
deformation  in  the  thickness  direction  and  any  deformation  caused  by 
transverse  shear.  Thus,  there  are  only  5  degree-of-freedom  at  each  node; 
namely,  three  displacements  and  two  rotations. 

The  so-called  degenerated  isoparametric  elements  include  three 


different  configurations:  the  8-node  Serendipity,  the  9-node  Lagrangian  and 
9-node  Heterosis.  The  Serendipity  is  the  simplest,  requiring  a  normal  rule 
of  integration  such  as  the  3x3  Gauss  quadrature  approach.  This  type  of 
element,  however,  has  been  shown  to  yield  stiff  solutions  if  the  shell  is 
thin  (as  compared  to  it's  radius).  To  improve  the  accuracy  of  the  computed 
stresses,  a  reduced  integration  technique  such  as  suggested  in  Hinton  and 
Owen  [1]  may  be  followed  for  shells  of  thin  thicknesses.  The  9-node 
Lagrangian  is  basically  the  8-node  serendipity  with  an  additional  middle 
node  in  the  center  of  the  quadrilateral  element.  Usually,  a  full  integration 
technique  must  be  followed,  though  the  reduced  integration  method  can  also 
be  used.  However,  problems  of  reduced  rank  (or  rank  deficiency)  may 
sometimes  arise  in  the  stiffness  matrix  if  the  reduced  integration 
technique  is  used.  While  the  additional  node  helps  to  improve  the  computed 
results,  it  nevertheless  causes  increased  degree-of-freedom  of  the  element 
and  requires  a  different  set  of  the  nodal  shape  functions.  The  Heterosis  is  a 
mix  of  the  Serendipity  and  the  Lagrangian  in  that  the  element  employs 
serendipity  shape  functions  for  the  transverse  displacement  w  and  the 
Lagrangian  shape  function  for  the  rotations.  This  allows  selective 
integration  techniques  to  be  used.  Choice  of  these  different  element  shapes 
is  a  matter  of  decision  to  be  made  for  the  specific  problem  which  is  to  be 
analyzed  [1]. 

The  code  can  analyze  structures  constructed  using  shell  elements, 
such  the  hollow  sphere.  The  material  of  the  sphere  may  be  elastic  and/or 
elasto-plastic;  the  sphere  may  be  concentrically  layered  with  isotropic 
and/or  orthotropic  materials;  the  applied  load  may  be  surface  forces  (radial 
and  tangential,  concentrated  or  distributed),  internal  pressure  and/or 
temperature  changes. 


The  code  uses  the  FRONTAL  solver  for  the  finite  element  solution.  A 
flow  chart  showing  the  block  structure  and  the  computational  flow  of  the 
program  is  provided  in  Fig.  2. 

A  brief  version  of  the  user's  instruction  is  provided  at  the  end  of  this 
section. 

A  listing  of  the  code  PLASTOSHELL  is  provided  in  the  appendix. 

REFERENCE 

[1]  "Finite  Element  Software  for  Plates  and  Shells"  Hinton  and  Owen, 
Pineridge  Press,  Swansea,  1984. 
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Fig.  1  Close  Packing  of  Spheres  in  A  3-D  Fiber  Network 


DIMES 

Preset?  the  variables  associated  with  the 
dynamic  dimensioning  process 


INPUT 

Inputs  data  defining  geometry,  boundary 
conditions  and  material  properties 


■  - . 


MODAN 

Calculates  the  elasticity  matrix  and  the  aniso 
tropic  parameters  matrix  for  each  material 


WORKS 

Sets  up  the  thickness  and  an  orthogonal  axes 
system  at  each  r.odal  point 


Computes  the  8  and  G  matrices,  the  latter  for 
large  displacement  analysis 


NCREMENT  LOOP 


USER  INSTRUCTION  FOR  PREPARING  THE  INPUT  DATA 


The  program  undertakes  elastic  or  ultimate  load  analysis  (if  material 
is  elasto-plastic)  of  thin,  thick  and  layered  plates  and/or  shells,  including 
the  full  sphere.  To  execute  a  specific  problem,  element  mesh  must  be 
generated  first.  This  code  assumes  that  the  element  mesh  has  already  been 
generated  and  that  the  coordinates  of  each  node  are  all  known.  Thus,  the 
required  input  data  format  described  below  does  not  include  mesh 
generation. 

The  general  order  of  the  input  data  is  as  follows: 

-  characterization  of  elements 

-  specification  of  material(s)  and  shell  thickness  structure 

-  nodal  coordinate  connections 

-  specification  of  boundary  conditions 

-  specification  of  loading 

-  output  instruction 


Card  Set  1  -  Title  Card  (12A6)  one  card 
Card  Set  2  -  Control  Card  (1215)  One  card 

Cols.  1-5  NPOIN  Total  number  of  nodal  points 


6-10  NELEM 
11-15  NVFIX 

16-20  NNODE 


21-25  NMATS 
26-30  NGAUS 


Total  number  of  element 
Total  number  of  points  where  one  or  more 
degrees  of  freedom  are  prescribed 
Number  of  nodes  per  element 

8  -  for  8  node  Serendipity 

9  -  for  Heterosis  and  9  node  Lagrangian 
Total  number  of  different  materials 
Number  of  Gauss  points  per  element 


31-35  NGAUZ  Number  of  Gauss  points  per  element  (Shear) 
NGAUS=3 ,  NGAUZ=3  -  Normal  integration  rule 
NGAUS=3,  NGAUZ=2  -  Selective  integration 
rule 

NGAUS=2,  NGAUZ=2  -  Reduced  integration 
rule 


36-40  NCOLA 


41-45  NALGO 


46-50  NINCS 
51-55  NLAYR 


56-60  LARGE 


61-65  NREST 


Set  the  constraints  for  the  Lagrangian  9 
node  element: 

=0  9  node  Lagrangian  element  (no  constraints) 
=1  Heterosis  -  constrain  the  9th  node  dis¬ 
placements  (u,v,w) 

Nonlinear  solution  process  indicator: 

=1  initial  stiffness  method  is  used 
=2  tangential  stiffness  method  is  used 
=3  stiffness  matrix  is  recalculated  in  the 
first  iteration  of  each  increment 
=4  stiffness  matrix  is  recalculated  in  the 
second  iteration  of  each  increment  and 

also  when  there  are  one  or  more  unloaded 
Integration  points  in  the  previous 
iteration 

Total  number  of  load  increments 

(i)  Total  number  of  layers  through  the 
thickness  (PLASTOSHELL) 

(ii)  Total  number  of  layer  patterns  in 
the  structure  (CONSHELL) 

Large  deformation  parameter 
— 0  Geometrically  linear  analysis 
=1  Geometrically  nonlinear  analysis 
Restart  facility  parameter 
=0  to  start  the  analysis 
=1  to  restart  the  analysis  from  the  last 
previously  converged  load  increment 


CARD  SET  3  (5F10.5) 


One  Card 


Cols.  1-10  GRAVI(l) 

11-20  GRAVI (2) 

21-30  GRAVI (3) 

31-40  ANVEL 
(1)  PLASTOSHELL 
CARD  SET  4  -  ELEMENT 


Gravitational  acceleration  in  the 
x-direction 

Gravitational  acceleration  in  the 
y-direction 

Gravitational  acceleration  in  the 
z-direction 

Angular  velocity  (referred  to  the  z  axis) 
CARDS  (1615, /,SX, 1515)  Ons  or  two  Cards 


for  each  element 

Cols.  1-5  NUMEL  Element  number 

6-10  MATNO (NUMEL) 1  Mater ial  property  number  for  each 
I  (NUMEL, 1) , ,  „  _ 

,  layer,  ILAYR  from  Bottom  to  Top 

56-60  MATNO( NUMEL,  (case  of  NLAYR  =  10) 

NLAYR) 

61-65  LNODS(NUMEL,  Element  node  numbers  (anticlockwise) 
|  INODE) 

» 

1 

106-110  LNODS ( NUMEL, , (Case  of  NNODE  =  9) 

NNODE) 


(11)  CONSHELL 

CARD  SET  4  -  ELEMENT  CARDS  (1115)  One  Card  for  each  element 
Cols.  1-5  NUMEL  Element  number 

6-10  MATNO(NUMEL)  Element  layer  pattern  number 
11-15  LNODS ( NUMEL, 1) 

I 

16-20  LNODS ( NUMEL , 2)  Element  node  number  (anticlockwise) 


46-50  LNODS (NUMEL, 8) 

I 

51-55  LNODS (NUMEL, 9)  (Case  of  NNODE  =  9) 

CARD  SET  5  NODAL  COORDINATE  CARDS  ( 15 , 4F15 . 10/5X , 4F15 . 10) 

Two  Cards  for  each  node  whose  coordinates  must  be 
input  -  finishing  with  the  last  node.  (Coordinates 
of  the  central  9th  node  and  also  mid-side  nodes 
whose  coordinates  are  obtained  by  a  linear  inter¬ 
polation  of  the  corresponding  corner  nodes  need  not 
be  input ) . 


Fi.rst  Card 
Col*.  1-5  IPOIN 


Node  nuaber 


6-20  COORD( IPOIN, 1)  Top  x  coordinate 
21-35  COORD( IPOIN , 2)  Top  y  coordinate 
36-50  COORD { IPOIN , 3)  Top  z  coordinate 
51-65  COORD( IPOIN , 4)  Top  pressure 
Second  Card 

Col*.  6-20  COORD( IPOIN , 5)  Bottom  x  coordinate 
21-35  C00RD(IP0IN,6)  Bottom  y  coordinate 
36-50  COORD(IPOIN,7)  Bottom  z  coordinate 
51-65  COORD(IPOIN,8)  Bottom  preaaure 
CARD  SET  6  RESTRAINED  NODE  CARDS  ( 15 , 5X , 15 , 5X , 5F10. 6)  One 
Card  for  each  restrained  node.  (Total  of  NVFIX 


Cards) 

Col*.  1-5  NOFIX 


Restrained  node  number 


11-15  IFPRE  Condition  of  the  degree  of  freedom: 
restrained  (=1) 
otherwise  (=0) 

position  11  -  u  displacement  (x-direction) 

12  -  v  displacement  (y-direction) 

13  -  w  displacement  (z-direction) 

14  -  rotation 

15  -  &2  rotation 

21-30  PRESC( IVFIX , 1)  -  The  prescribed  value  of  the  nodal 

I 

31-40  ;  variables  (u.v.w.Sj^  and  S2 

41-50  ;  respectively) 


61-70  PRESC( I VFIX , 5) 

(1)  PLASTOgHELL 

CARD  SET  7  MATERIAL  CARDS  Four  Cards  for  each  different 
material  (Total  number  of  cards  =  4*NMATS) 


First  card  (15) 

Col*.  1-5  NUMAT 
Second  card  (7F10.5) 


Material  identification  number 


Cols.  1-10  PR0PS( NUMAT, 1)  E^  Young's  modulus  in  1  direction 


Cola.  11-20 
21-30 

31-40 

41-50 

51-60 

61-70 

Third  card 
Cols.  1-10 
11-20 
21-30 
31-40 
41-50 
51-60 


61-70 
Fourth  card 
Cola.  1-10 
11-20 
21-30 
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PROPS (NUMAT ,2)  v  Poiaaon’a  ratio  <V12/E1=V21/E2) 
PROPS (NUMAT, 3)  t.  Layer  thickness  expressed  In  the 
normalised  ;  coordinate 
PROPS (NUMAT ,4)  p  Material  density 
PROPS (NUMAT , 5)  a  Coefficient  of  thermal  expansion 
PROPS ( NUMAT , 6 )  Uniaxial  yield  stress  (1  direction) 
PROPS (NUMAT, 7)  H'  Hardening  parameter  (1  direction) 
(7F10.5) 

PROPS (NUMAT, 8)  Young's  modulus  in  2-direction 
PROPS(NUMAT, 9)  Shear  modulus  in  12  plane 

PROPS(NUMAT , 10)G^2  Shear  modulus  in  13  plane 


PROPS (NUMAT, 11)G 
PROPS (NUMAT, 12) a 
PROPS (NUMAT , 13) a 


Shear  modulus  in  23  plane 

Uniaxial  yield  stress  (3  direction) 


PROPS (NUMAT, 12) aQ £  Uniaxial  yield  stress  (2  direction) 


03 

or  Uniaxial  yield  stress  (At  45°  to 


1  direction) 


PROPS (NUMAT, 14) TQ12She*r  yisld  stress  (12  plane) 
(7F10.5) 

PROPS(NUMAT,15)t 


Shear  yield  stress  (13  plane) 


013  _ 

PROPS (NUMAT, 16) x023Shear  yield  stress  (23  plane) 


PROPS (NUMAT, 17)0 


Angle  between  the  reference 
system  and  the  material  system 
in  the  layer  plane  (anticlock¬ 
wise  -  in  radians) 


NOTE:  The  1,2,3  axes  are  the  principal  material  axes,  with  1,2 
being  in  the  plane  of  the  layer. 

(11)  CONSHELL 

CARD  SET  7 -A  CONCRETE  AND  STEEL  DISCRETIZATION  PATTERN  Two 
Cards  for  each  layer  pattern 
First  card  (1615) 

Cols.  1-5  NCLAY ( ILAYR)  Number  of  concrete  layers 

6-10  NSLAY( ILAYR)  Number  of  steel  layers  (ILAYR  -  Layer 
pattern  identification  number) 

Second  card  (1615) 

Cols.  1-5  MACON (ILAYR, IC0NL ) 


IC0NL  -  Material  identification 


number  for  each  concrete  layer  from 
bottom  to  top 


MASTE ( ILAYR , ISTEL) 

ISTEL  -  Material  identification 
number  for  each  steel  layer 

CARD  SET  7-B  MATERIAL  CARDS  -  Three  Cards  for  each  different 
material 
First  card  (15) 

Cols.  1-5  NUMAT  Material  identification  number 
Second  card  (7F10.5)  FOR  CONCRETE  MATERIAL  ONLY 
Cols.  1-10  PROPS ( NUMAT, 1)  £  Young's  Modulus 
11-20  PROPS (NUMAT, 2)  Poisson's  ratio 

21-30  PROPS ( NUMAT , 3 )  t.  Layer  thickness  expressed  in  the 

normalized  ;  coordinate 
31-40  PROPS ( NUMAT , 4 )  ;  Material  density 

41-50  PROPS (NUMAT, 5)  f'  Concrete  ultimate  tensile  strength 
51-60  PRO PS (NUMAT, 6)  f  Concrete  ultimate  compression 

strength 

61-70  PROPS (NUMAT, 7)  t  Concrete  ultimate  compressive 

u 

strain 

Second  card  (7F10.5)  -  FOR  STEEL  MATERIAL  ONLY 
Cols.  1-10  PROPS ( NUMAT, 1)  E  Young's  Modulus 

11-20  PROPS (NUMAT, 2)  E’  Elasto-plastic  Young's  Modulus 
21-30  PROPS ( NUMAT , 3 )  t.  Layer  thickness  expressed  in 

terms  of  the  normalized  ; 
coordinate 

31-40  PROPS(NL'MAT , 4)  ;  Material  density 

41-50  PROPS (NUMAT, 5)  f  Steel  yield  stress 

51-60  PROPS (NUMAT, 6)  ;  Layer  position  in  terms  of  the 

normalized  ;  coordinate 

61-70  PROPS ( NUMAT , 7 )  f  Angle  between  the  reinforcement 

and  the  x'-axia  (measured  anti¬ 
clockwise  in  radians  with 

-/2  <  5  <  t/2) 


Third  card  (7F10.5)  -  FOR  CONCRETE  MATERIAL  ONLY 


Cola.  1-10  PROPS ( NUMAT , 8 )  £  Tension  stiffening  parameter 

m  m 

11-20  PROPS (NUMAT, 9)  a  Tension  stiffening  parameter  a 
Third  card  (7F10.5)  -  FOR  STEEL  MATERIAL  ONLY 

Blank  card 

CARD  SET  8  LOAD  CARDS  At  least  one  card  for  each  element 
First  card  (315) 

Cols.  1-5  NPRES  Distributed  load  indicator 

=0  no  distributed  loads  on  this  element 
=1  distributed  loads  to  be  input 
6-10  NUCLO  Number  of  concentrated  loads  on  this 
element  (=0,  no  concentrated  loads) 

11-15  NBODY  Body  load  indicator  (gravity  and/or  centri¬ 
fugal 

=0  no  body  loads  on  this  element 
=1  body  loads  to  be  input 

Second  card  (15, F5. 1 , 2F15 . 5)  [Only  exists  if  NPRES=1] 

Cols.  1-5  KPRES  Distributed  load  type  indicator 

=0  Uniformly  distributed  load 
=1  Hydrostatic  load 

=2  Load  specified  as  nodal  values  (See 
Card  Set  5) 

6-10  CFACE  =  ♦  1.0  Pressure  is  on  top  surface 

*  -  1.0  Pressure  is  on  bottom  surface 
11-25  PREVA  Uniformly  distributed  load  if  KPRES  =  0 
Maximum  value  of  hydrostatic  load  if 
KPRES  =  1 

26-40  SURFA  z  coordinate  of  zero  pressure  if  KPRES  =  1 
Third  set  cards  (2I5.F10.5)  [Only  exists  if  NUCLO  >  0] 

Nuaer  of  cards  to  be  input  equals  NUCLO 
Cols.  1-5  LPOIN  Local  node  number  (in  the  range  1-8)  at 
which  the  load  is  applied 

6-10  LDOFN  Nodal  variable  number  corresponding  to  the 
applied  load 
*1  -  x  displacement 


I 

I 

\ 


=2  -  y  displacement 


=3  -  z  displacement 
=4  -  ;  rotation 
=5  -  z2  rotation 

11-20  CARGA  Concentrated  load  value 

CARD  SET  9  LOAD  INCREMENT  CONTROL  CARDS  (2F10.5.3I5)  One  Card 
for  each  load  increment  (total  of  NINCS  cards) 

Cols.  1-10  FACTO  Applied  load  factor  for  the  current 
increment 

11-20  TOLER  Convergence  tolerance  factor 

21-2S  MITER  Maximum  number  of  iterations  allowed 
26-30  NOOTP(l)  Control  output  parameter  of  the  unconverged 
results  after  the  first  iteration 
=1  -  Print  the  displacements  only 
=2  -  Print  displacements  and  nodal 
reactions 

=3  -  Print  displacements,  reactions  and 
stresses 

31-35  NOUTP(2)  Control  output  parameter  of  the  converged 
results 

=1  Print  the  final  displacements  only 
=2  Print  displacements  and  nodal  reactions 
=3  Print  displacements,  reactions  and 


stresses . 


LISTING  OF  PLASTOSHELL 


j 


1 

I 
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»■*•#*•#  ****-JHt  •»*#•**«•»#•**•*******#•*■»**■*•*■#  •*■*•****#*•#•****#*#****#*** 

A  PROGRAM  FOR  ANALYSIS  OF  SHELLS  BY  THE  FINITE  ELEMENT  METHOD 

THIS  PROGRAM  H5  3EEN  EXTRACTED  FROM  THE  BOOK 

FINITE  ELEMENT  PROGRAMMING  FOR  PLATES  AND  SHELLS 
BY  HINTON  AND  OWEN 

SURESH  N.  JULY  1989 

♦♦♦IHHHHHHHHt***##*#********##*********#**#******#****^*#**** 

SUBROUTINE  ALGOR ( FI XED, KI TER.  1 1 TER ,  KRESL,  MTOTV,  NALCO, 

NTOTV, KUNLO, KINCS) 

■»•*■*•*****•*  ^***********************-***************#*********** 

- THIS  SUBROUTINE  SETS  EQUATION  RESOLUTION  INDEX.  KRESL 

****##*»*«»#*»«**##*##***»*###»*#*##*#**********##********** 
DIMENSION  FI XED (MTOTV) 

KRESI  —  2 

IF(NALGO.  EG.  1.  AND  KITER.  EG.  2)  KRESL  =  1 
IF(NALGQ  EG  2)  KRESL=1 

IF  (NALGO  EG.  3  AND.  I  ITER.  EG.  1)  KRESL  *  1 
IF(NALGO.  EG.  4.  AND.  KITER.  EG.  2)  KRESL  =  1 
IF(NALGO.  EG.  4.  AND.  I  ITER.  EG.  2)  KRESL  =  1 
IF(NALGO  EG  4.  AND  KUNLO.  GT  O)  KRESL  =  1 
IF(KITER  EG  (KINCS+1+1 > )  KRESL  =  1 
IF<  1 1  TER  EG.  1  )  RETURN 
DO  100  ITQTV  =  1,  NTOTV 
FIXED (  ITOTV)  =0.0 
CONTINUE 
RETUR  N 
END 


SUBROUTINE  BGMAT,  FORMS  THE  CBoI  MATRIX  AND  THE  CGD  MATRIX 


SUBROUTINE  BGMAT (COORD.  DICOS, LNODS, MATNO. MELEM. 

MLAYR,  MMATS.  MPOIN, M3P0I, NELEM, 

NEVAB.  NGAUS.  NGAUZ.  NLAYR.  NNODE.  NPROP. 
POSGP i PROPS, THICK, WEIGP ) 


THIS  SUBROUTINE  COMPUTES  BMATX  AND  GMATX  (THE  LATTER  FOR  LARGE 
DISPLACEMENT  ANALYSIS).  THESE  MATRICES  ARE  STORED  ON  TAPE  8  FOR 
LATER  SELECCTI VE  INTEGRATION ( TRANSVERSE  SHEAR  TERMS) CAN  BE 
ACCOUNTED  FOR). 


COMMON  WORMX ( 3,  24 ) ,  GVALU.  DJACB 

DIMENSION  BMATX  (  5,  45) ,  BDUMY  (8,  45),  COORD(MPOIN,  8),  DICOSO,  M3P0I), 

FUNCT ( 4 ) ,  GMATX (2,  45),  LNODS (MELEM,  9 ), MATNO ( MELEM, MLAYR), 

POSGP (5),  PROPS (MMATS,  NPROP),  THICK ( MPOIN ) ,  SHAPE (3,  9), 

WEIGP ( 5 ) 

REWIND  8 

LGAUS  =  NGAUS  -NGAUZ 

LGAUS  =  O  FOR  NORMAL  OR  REDUCED  INTEGRATION  RULE, 

LGAUS  =  1  FOR  SELECTIVE  INTEGRATION  RULE 
WRI TE(5, *>  'NELEM  IN  BGMAT=  ', NELEM 
DO  100  IELEM  =  1,  NELEM 
WRITE  (5,  *)  ' 

WRITE (5, *)  ' IELEM=  ' ,  IELEM 
WRITE(5,  *>  ' 

IF  (LGAUS.  EG.  0)  GO  TO  25 
NBORP  =  0 

REDUCED  INTEGRATION  IS  USED  TO  SET  UP  THE  TRANSVERSE  SHEAR  TERMS  OF 
THE  CB3  MATRIX,  FIRSTLY  THESE  TERMS  ARE  STORED  IN  BDUMY  MATRIX 

C0NS1  =  1 . O/POSGP ( 4 ) 

C0NS2  =  -C0NS1 
ZETSP  =00 
KGAUZ  =  -1 
DO  20  IGAUZ  =1, NGAUZ 
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DO  20  JGAUZ  =  1 «  NGAUZ 
KGAUZ  =  KGAUZ  +  1 
EXISP  =  POSGP (3+1 GAUZ ) 

ETASP  =  POSGP (3+ JGAUZ) 

CALL  SFR 1 ( SHAPE;  EXISP,  ETASP  > 

CALL  FUNC  (BMATX,  SHAPE;  THICK.;  NBORP,  NNODE;  ZETSP;  MELEM,  COORD. 

DICOS,  LNODS,  IELEIi;  MPOIN.  M3P0I,  GMATX  ) 

DO  15  IEVAB  =1 i NEVAB 
DO  15  IPOSI  =  1,2 
JPOSI  =  2*KGAUZ+IP0SI 

BDUMY(JPOSI,  IEVAB)  =  GMATX ( IPOS I .  IEVAB ) 

-  CONTINUE 

:  SET  UP  CB3  MATRIX,  AND  CG3  MATRIX  FOR  NORMAL  OR  REDUCCED  INTEGRATION 

NBORP  =  1 

DO  50  IGAUS  =1 ,  NGAUS 
DO  50  JGAUS  =1,  NGAUS 

WRI TE< 5, *>  ' IGAUS . JGAUS...  IGAUS,  JGAUS 

EXISP  =  POSGP ( IGAUS ) 

ETASP  =  POSGP (JGAUS) 

:  WRITE (20,*) 'POSGP "S  IN  BGMAT ' 

:  WR I T  E  ( 20 1  ■* )  POSGP  (  IGAUS),  POSGP  (JGAUS) 

CALL  SFR 1 (SHAPE,  EXISP,  ETASP ) 

WRI TE( 20, •*)  'COMES  OUT  OF  SHAPE  IN  SGMAT  ' 

:  WRI TE(20, 777) ( ( SHAPE ( I II,  JJJ) .  JJJ=1, 9) ,  1 11  =  1, 3) 

T777  FORMAT  (  IX ,  3F  14.7) 

ZETSP  =  -1.0 

DO  45  ILAYR  =  1 , NLAYR 

LPROP  =  MATNO( IELEM,  ILAYR) 

DZETA  =  PROPS (LPROP,  3) 

ZETSP  =  ZETSP+DZETA/2.  O 

CALL  FUNC (BMATX,  SHAPE,  THICK,  NBORP,  NNODE,  ZETSP,  MELEM, 

COORD, DICOS. LNODS,  IELEM, MPOIN, M3P0I , GMATX ) 

I  WRI  TE(  5,  *)  '  "  . . . .  FUNC  ENDS  . . . . .  LGAUS 

’  PAUSE 

DVOLU  =  DJACB*WEIGP( IGAUS ) *WEIGP < JGAUS)*DZETA 
IF(LGAUS.  EQ.  O)  GO  TO  40 

:  SET  UP  THE  INTERPOLATION  FUNCTIONS  TO  REFORM  THE  SELECTIVE  INTGN. 

FUNCT(l)  =  O. 25*(1. 0+C0NSl*EXISP)*<l. 0+C0NSl*ETASP > 

FUNC T ( 2 )  =  O  25*(1  0+CQNS1 *EX I SP ) * ( 1 .  0+C0NS2*ETASP > 

FUNCT ( 3 )  =  O.  25* (1  0+C0NS2*EX ISP > * < 1 . 0+C0NSl*ETASP ) 

FUNCT ( 4 )  =  O.  25*( 1.  O+C0NS2*EX I SP ) * < 1 .  0+C0NS2*ETASP ) 

‘  INTERPOLATE  THE  TRANSVERSE  SHEAR  TERM  OF  BMATX  FROM  4  TO  9  G.  P 

DO  30  IEVAB  =  1, NEVAB 
DO  30  IDOFN  =  4,  5 
BMATX  (  IDOFN,  IEVAB  )  =  O.  O 
DO  30  INTPO  =1,  4 
IGASH  =  2* INTPO+ I DOFN— 5 

, w  BMATX ( IDOFN,  IEVAB )  =  BMATX ( I DOFN,  IEVAB ) +FUNCT ( INTPO >* 

B  DUM Y ( I GASH ,  I EVAB ) 

irs  CONTINUE 

WRITE (8)  BMATX,  GMATX,  DVOLU 
ZETSP  =  ZETSP  +  DZETA/2. 0 
)5  CONTINUE 

30  CONTINUE 

I  WRITING  BGMAT  FOR  TEST  ON  UNIT  30 

WR  I  TE  ( 30,  * )  'IELEM  =',  IELEM 
3  WRI  TE(30,  6>66)  (  ( 3MATX  (I,  J>,  J=l,  45),  1  =  1,  5> 

166  FORMAT(  IX,  5E14.  7/1X,  5E14.  7/:iX,  5E14.  7/1X,  5E14.  7/1X,  3E14.  7 

/IX,  5E14.  7,  /IX,  5E14.  7,  /IX,  5E14.  7/1X,  5E14.  7) 

O  CONTINUE 

RETURN 
END 


SUBROUTINE  CHECK1,  THIS  CHECKS  THE  MAIN  CONTROL  DATA 


SUBROUTINE  CHECK 1 (NDOFN,  NELEM,  NGAUS,  NMATS,  NNODE, NPOIN, 

MMATS, NVFIX, NGAUZ, NLAYR) 


OCr 


I 

I 
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DIMENSION  rvER0R<20> 

DO  10  IEROR  =1,4 
NEROR(IEROR)  =  0 

CREATE  THE  DIAGONSTIC  MESSAGES 

IF  CNPOIN.  LE.  0  )  NEROR(l)  =1 
IF(NELEM*NNODE.  LT.  NPOIN)  NER0RC2)  =  1 
IF(NVFIX.  LT.  2.  OR.  NVFIX.  GT.  NPOIN)  NEROR  ( 3  )  =1 
IF(NNODE.  LT.  8  OR.  NNODE.  GT.  9)  NEROR  ( 4  )  =1 
IF(NDOFN.  NE.  5.  OR  NLAYR.  GT.  10)  NEROR  (  5  )  =1 
IFtNMATS.  LT.  1.  OR.  NMATS.  GT.  MMATS)  NEROR  ( 6  )  =1 
IF(NGAUS.  LT  2.  OR.  NGAUS.  GT.  3)  NEROR  (  7  )  =1 
IF(NGAUZ.  LT.  2.  OR.  NGAUZ.  GT.  3)  NEROR  (  8  )  =1 

j  EITHER  RETURN,  OR  ELSE  PRINT  THE  ERROR  DIAGONISE 

KEROR  =  O 

DO  20  IEROR  =  1,8 

i  IF(NEROR(  IEROR).  EQ.  0)  GO  TO  20 

KEROR  =  1 

*  WRITE (6, 900)  IEROR 

900  FORMAT  </ /31H«  **-*D  I AGNQS I S  BY  CHECK1,  ERROR,  13) 

O  FORMAT ( 25HD I AGNOS I S  BY  CHECK1  ERROR, I3> 

CONTINUE 

IF(KEROR.  EQ.  0)  RETURN 

OTHERWISE  ECHO  ALL  THE  REMAINING  DATA  WITHOUT  FURTHER  COMMENT 

CALL  ECHO 
END 


SUBROUTINE  CHECK2 ( COORD,  IFFIX,  LNODS,  MATNO,  MELEM,  MFRON,  MPOIN. 

MTOTV,  MVFI.X,  NDFRO,  NDOFN,  NELEM,  NMATS,  NNODE,  NOFIX,  N, 

NPOIN,  NVFIX, NLAYR ) 


THIS  SUBROUTINE  CHECKS  THE  REMAINDER  OF  THE  INPUT  DATA 


DIMENSION  COORDfMPOIN, 8),  I FFI X (MTOTV ),  LNODS (MELEM,  12), 

MATNO ( MELEM ,  NLAYR ) ,  NDFRO ( MELEM ) ,  NEROR ( 20 ) ,  NOF I X ( MVF I X ) 

CHECK  AGAINST  TWO  IDENTICAL  NONZERO  NODAL  DISPLACEMENTS 

DO  3  IEROR  =  9,  20 
NEROR (IEROR)  =  O 
DO  10  IELEM  =  1, NELEM 
0  NDFRO (IELEM)  =  O 

DO  50  IPQIN  =  2,  NPOIN 
KPOIN  =  IPOIN-1 
DO  30  JPOIN  =1,  KPOIN 
DO  20  I D I  ME=  1 , 3 

IF(COQRD( IPO IN,  I DIME ) .  NE.  COORD ( JPOIN,  I DIME) )  GO  TO  30 
CONTINUE 

NEROR (9)  =  NER0R(9)+1 
CONTINUE 
CONTINUE 

CHECK  THE  LIST  OF  ELEMENT  PROPERTY  NUMBERS 

DO  30  IELEM  =1, NELEM 
DO  50  ILAYR  =1, NLAYR 

IF  (  MATNO  (IELEM,  ILAYR).  GT.  NMATS)  NEROR(IO)  =NER0R(10)+1 

CHECK  FOR  IMPOSSIBLE  NODE  NUMBERS 

DO  70  IELEM  =1, NELEM 
DO  60  INODE  =  1, NNODE 

IF(LNQDS( IELEM,  INODE) . EG.  0>  NEROR ( 1 1 )  =  NEROR (11)  +  1 
0  IF(  LNODS  (IELEM,  INODE).  LT.  0.  OR.  LNODS  ( IELEM,  INODE).  GT.  NPOIN) 

IfCROR (12)  =  NEROR (12)  +  1 
CONTINUE 


CHECK  FOR  ANY  REPETITION  OF  A  NODE  NUMBER  WITHIN  AN  ELEMENT 


I 
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DO  140  IFOIN  =  1 ,  NPOIN 
KSTAR  =  O 

DO  100  I EL EM  =  1 ,  NELEM 
KZERO  =  0 

DO  90  INODE  =1  /  NNODE 

IF(LNODS(  IELEM,  INODE).  NE.  IPOIN)  GO  TO  90 
KZERO  =  KZERO  +  1 

IF ( KZ ERO.  GT.  1  >  NER0R<13)  =  NER0R(13)  +1 

SEEK  FIRST,  LAST  AND  INTERMEDIATE  APPEARANCES  OF  NODE  IPOIN 

IF(KSTAR  NE.  0)  GO  TO  80 
KSTAR  =  IELEM 

CALCULATE  INCREASE  OR  DECREASE  IN  FRONTWIDTH  AT  EACH  ELEMENT  STAGE 

NDFRO< IELEM)  =  NDFRO ( IELEM)  +  NDOFN 
0  CONTINUE 

AND  CHANGE  THE  SIGN  OF  THE  LAST  APPEARANCE  OF  EACH  NODE 

KLAST  =  IEIJEM 
NLAST  =  INODE 
CONTINUE 
3  CONTINUE 

IF(KS.TAR  EG.  0)  GO  TO  HO 

IF(KLAST.  LT  NELEM)  NDFRO ( KLAST+1 )  =  NDFRO ( KLAST+ 1 )  -  NDOFN 
LNODS  (KLAST,  NLAST)  =  -IPOIN 
GO  TO  1 40 

CHECK  THAT  CO-ORDINATES  FOR  AN  UNUSED  NODE  HAVE  NOT  BEEN  SPECIFIED 
3  WR I TE (6, 900 )  IPOIN 

30  FORMAT ( / 1 3HCHECK  WHY  NODE, 14, 14H  NEVER  APPEARS) 

00  FORMAT C/14HCHECK  WHY  NODE, 14, 14H  NEVER  APPEARS) 

NEROR (14)  =  NER0R(14>  +1 
SIGMA  =00 
DO  120  xDIME  =  1,3 

SIGMA  =  SIGMA  +  ABS ( COORD ( IPO IN, I D IME ) ) 

IF(SIGMA.  NE.  0.  O)  NER0R(15)  =  NER0R(15>  +1 

CHECK  THAT  AN  UNUSED  NODE  NUMBER  IS  NOT  A  RESTRAINED  NODE 

DO  130  IVFIX  =1,  NVFIX 

0  IF (NOFIX( IVFIX ).  EQ.  IPOIN)  NER0R(16>  =  NEROR ( 16 )  +1 

3  CONTINUE 

CALCULATE  THE  LARGEST  FRONTWIDTH' 

NFRON  =  O 
KFRON  =  0 

DO  150  IELEM  =  1 ,  NELEM 
NFRON  =  NFRON  +  NDFRO (IELEM) 

IF  (NFRON  GT.  KFRON)  KFRON  =  NFRON 
WRITE  (6,905)  KFRON 

5  FORMAT ( / /33H  MAXIMUM  FRONTWIDTH  ENCOUNTERED  =,  15//) 

IF(KFRON.  GT.  MFRON  )  NEROR  (17)  =1 

CONTINUE  CHECKING  DATA  FOR  THE  FIXED  VALUES 

DO  170  IVFIX  =  1,  NVFIX 

I F  ( NO F I X  (  IVFIX).  LE.  0.  OR.  NOF I X  ( IVFIX  ) .  GT.  NPOIN )  NEROR  ( 18)  8>  +  l 

I=NEROR( 18)+i 
KOUNT  =  0 

NLOCA  =  (NOFIX ( IVFIX )-l >*NDOFN 
DO  160  IDOFN  =  1, NDOFN 

I  NLOCA  «  NLOCA  +1 

3  IF ( IFFIX(NLOCA) .  GT.  O)  KOUNT  =1 

IFfKOUNT.  EQ.  0)  NEROR  (19)  =  NEROR  (19)  +1 
KVFIX  =  IVFIX  -1 
DO  170  JVFIX  =  1, KVFIX 

D  IF  (  ( IVFIX.  NE.  1  ).  AND.  (NOFIX  ( IV  IF  IX  ) .  EQ.  NOFI X  ( JVFI X  )  )  ) 

f  NEROR (20)  =  NEROR (20)  +  1 

KEROR  «  0 

DO  180  IEROR  =  9,  20 
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IF (NERQR  (  IEROR  > .  EQ.  0 )  GO  TO  180 
KEROR  =  1 

WRITE (6, 910)  IEROR/ NEROR ( IEROR ) 
FORMAT ( //25HDIAGNQSIS  BY  CHECK2 
CONTINUE 

IF  (KEROR.  NE.  0)  GO  TO  200 


ERROR,  13,  6X,  9HASSTD  NO.  ,  15)  > 


RETURN  ALL  NODAL  CONNECTION  NUMBERS  TO  POSITIVE  VALUES 


DO  190  IELEM  =  1 , NELEM 
DO  190  INODE  =  1,  NNQDE 

LNODS( IELEM,  INODE)  =  I ABS ( LNODS ( IELEM,  INODE ) > 
RETUR  N 

CALL  ECHO 

END 


SUBROUTINE  CONVER 

SUBROUTINE  CONVER (ELOAD,  I  ITER,  LNODS,  MELEM, MEVAB, MTOTV,  NCHEK, 

NDOFN, NELEM, NEVAB, NNODE, NTOTV, STFOR, 

TLOAD, TOFOR, TOLER) 

THIS  SUBROUTINE  CHECKS  FOR  CONVERGENCE  OF  THE  ITERATION  PROCRESS 

DIMENSION  ELOAD (MELEM,  MEVAB ),  LNODS (MELEM,  12 ),  STFOR ( MTOTV ) , 

TOFOR ( MTOTV ) ,  TLOAD ( MELEM,  MEVAB  > 

NCHEK  =  0 
RESID  =0.0 
RETOT  =0.0 
REMAX  =0.0 
DO  5  ITOTV  =  1, NTOTV 
STFOR ( ITOTV)  =0.0 
TOFOR  (  ITOTV)  =  0.  O 
CONT INUE 

DO  40  IELEM  =1, NELEM 
KEVAB  =  O 

DO  40  INODE  =  1, NNODE 

LQCNQ  =  IABS (LNODS ( IELEM, INODE) ) 

DO  40  IDOFN  =1, NDOFN 

KEVAE  =  KEVAB  +  1 

NPQSI  =  (LOCNO-1 )*NDOFN+ IDOFN 

STFOR (NPOSI)  =  STFOR (NPOSI)  +  ELOAD ( IELEM- KEVAB ) 

TQF  OR ( NPOS I )  =  TOFOR (NPOSI)  +  TLOAD ( IELEM, KEVAB > 

DO  50  ITOTV  =1, NTOTV 

REFOR  =  TOFOR (ITOTV)  -STFOR ( ITOTV ) 

RESID  =  RESID  +  REFOR*REFOR 
RETOT  =  RETOT  +  TOFOR (ITOTV)  *TOFOR ( ITOTV ) 

AGASH  =ABS (REFOR) 

IF( AGASH  GT.  REMAX)  REMAX  =  AGASH 
DO  lO  IELEM  =  1, NELEM 
DO  10  IEVAB  =  1,  NEVAB 

ELOAD( IELEM,  IEVAB )  =  TLOAD ( I ELEM,  IEVAB )  -ELOAD ( IELEM,  IEVAB > 

RESID  =  SORT (RESID) 

RETOT  =  SORT (RETOT) 

RATIO  =  100.  0*RESID/RET0T 
IF(RATIO.  GT.  TOLER  >  NCHEK  =1 
IFdITER.  EG.  1)  GO  TO  20 
IF(RATIQ.  GT.  PVALU)  NCHEK  =  999 
PVALU  =  RATIO 

WRITE (6, 30)  NCHEK, RATIO, REMAX 

FORMAT ( IH0.3X,  1 7HC0NVERGENCE  CODE*,  14, 3X,  29HN0RM  OF  RESIDUAL  SUM  M 
RATIO  =,  E14.  6,  3X,  18HMAXIMUM  RESIDUAL  =,  E14.  6) 

RETURN 

END 


SUBROUTINE  DIMEN ( MBUFA,  MELEM,  MEVAB,  MFRON,  MMATS,  MPOIN,  MSTIF,  MTOTG, 

MTOTV, MVFIX,  NDOFN,  NPROP,  NSTRE,  M3P0I, MLAYR) 


THIS  SUBROUTINE  PRESETS  VARIABLES  ASSOCIATED  WITH  DYNAMIC 
DIMENSIONING 


MBUFA  =  10 
MELEM  =  20 
MFRON  =  75 
MLAYR  =10 


! 
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MMATS  =  5 
MPOIN  =  100 
M3P0I  =  3*MP0IN 
NDOFN  =  5 
NSTRE  =  5 
MEVAB  =ND0FN*9 
MSTIF  =  (MFRON+l >*MFR0N/2 
MTOTG  =  MEL£M*MLAYR*9 
MTOTV  =  MPOIN*NDOFN 
MVFIX  =36 
NPROP  =17 

WR I TE ( 5 . * ) ' SOME  DATA  IN  DIMENSION' 

WR I TE ( 5, *>MFRON,  MLAYR,  MMATS.  MPOIN,  M3P0I.  NDOFN,  NSTRE, MEVAB, 
MSTIF, MTOTG, MVFIX 

RETURN 

END 


SUBROUTINE  ECHO 
SUBROUTINE  ECHO 


IF  DATA  ERRORS  HAVE  BEEN  DETECTED  BY  SUBROUTINES  CHECK1  OR 
CHECK2,  THIS  ROUTINE  READS  AND  WRITES  THE  REMAINING  DATA  CARDS 


DIMENSION  NTITLC80) 

WRITE (6, 900) 

>00  FORMA  T  < / / 5CH  NOW  FOLLOWS  A  LISTING  OF  POST-DISASTER  DATA  CARDS)  /) 
0  READ  (  1  5,  905  )  NTITL 

><  5  FORMAT  (80A1  ) 

WRITE (6, 910)  NTITL 
'.0  FORMAT  (2QX,  80A1  ) 

GO  TO  10 
END 

SUBROUTINE  FLOWS ( A3ETA,  AVECT,  DVECT,  LPROP,  MMATS,  NPROP,  PROPS, 

SG,  A,  DMATT) 


THIS  SUBROUTINE  CALCULATES  THE  FLOW  VECTOR  -AVECT-  AND  COMPUTES 
-DVECT-  AND  -ABETA- 


D I  MEN  S I  ON  AVECTO),  DMATT  (  5,  5,  MMATS),  DVECT(5>, 
PROPS ( MMATS, NPROP ) , SG ( 5 ) , A ( 9, MMATS ) 

SET  UP  MATERIAL  PROPERTIES 

HARDS  =  PROPS (LPROP,  7) 

COMPUTES  THE  VECTOR  AVECT 


L.  =  LPROP 

AFUNC  =  ( A(l,  1 >*SG( 1 )+2.  0*A<2,  L)*SG< 1 )*SG(2)+2.  0*A<3,  L)* 

SG( 1 >*SG<3)+A(4,  L>*8G(2)*SG(2)+2.  0*AC5, L)*SG(2)*SG<3)+ 

A (6,  L ) *SG ( 3  >  *SG ( 3 ) +A ( 7,  L ) *SG ( 4 >*SG < 4 ) +2.  0*A<8, L)*SG(4)* 
SG( 5 ) +A ( 9,  L)*SG(5)*SG(5> )**0.  5 
AVECT  ( 1  )  =  (A( 1,  L)*SG( 1 )+A(2,  L > *SG < 2 > +A < 3,  L)*SG<3> ) /AFUNC 
AVECT (2)  =  ( A ( 2,  L ) *SG ( 1 ) +A ( 4,  L ) *SG ( 2 ) +A ( S,  L ) *SG < 3 ) ) /AFUNC 
AVECT ( 3 )  =  (A(3,  L)*SG( 1 >+A(5, L ) *SG ( 2 >+A < 6,  L)*SG<3) > /AFUNC 
AVECT ( 4 )  =  (A<7, L > *SG < 4 > +A ( 8,  L)*SG<5) ) /AFUNC 
AVECTO)  =  ( A  ( 8,  1  >  *SG  ( 4  )  +A  ( 9,  L )  *SG  (  5 )  )  /AFUNC 
WR  ITE  ( 6,  910  )  AVECT 

FORMAT (8H  AVECT  =,  3E13  .  6) 


COMPUTE  DVECT  =  DMATX*AVECT 


DO  10  1  =  1,5 
DVECT  ( I  )  =  0.  0 
DO  10  J  =1,5 

DVECT  < I )  =  DVECT ( I )  +  DMATT ( I ,  J,  LPROP ) *AVECT< J) 
WRITE (6, 920)  DVECT 

FORMAT <8H  DVECT  =.  5E15.  6) 


DENOM  =  HARDS 
DO  20  ISTRE  =1,  3 

DENOM  =  DENOM  +  AVECT  < ISTRE ) *DVECT( ISTRE) 
ABETA  =  1 . 0/ DENOM 
WRITE (6, 930)  ABETA 
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'930  F QRMAT <SH  ABETA  =,  E15.6) 

RETURN 
END 


SUBROUTINE  FRAME ( N1 , N2, N3/ NOPN ) 

****  *****  **  *******  *  ******  -S’**  -a-  ********************************  * 
MULTIPLE  VECTOR  AND/OR  MATRIX  MANIPULATIONS 

NOPN  =  1,  CREATE  UNIQUE  ORTHOGONAL  AXES  IN  MATRIX  N1  INCLUDING  VEC 

NOPN  =  2,  SCISSORS  ON  OTHER  TWO  VECTORS  IN  Nl,  THEN  N2  MADE  ORTHO 

NOPN  =  3,  BEST  ORTHOGONAL  APPROXIMATION  TO  GIVEN  NON-CARTESIAN  FRA 

NOPN  =  4,  N2  BECOMES  N1T*N2*N1  USING  N3  =  GASH 

NOPN  =  5,  N2  BECOMES  N1*N2*N1T  USING  N3  =  GASH 

****  ***  ******** *** * ***** **** ********************************** 


:  4 


\ 


5 


I 


I 

I 

\ 


COMMON  WORMX  ( 3,  24),  GVALU,  D JACOB 

WR I  TEC  3, *>  'ENTERING  FRAME  WITH  N1 ,  N2, N3, NOPN  AS' 

WR  I  TE  (  5,  * )  Nl,  N2,  N3,  NOPN 
M3  =  Nl  +2 
12  =  N2  -1 

WRI  TE(  5,  *)  'M3,  12  IN  FRAME . ',M3,  12 

IF( 12. GE. Nl)  GO  TO  10 
12  =  12  +3 

11  =  Nl  +  Nl+Nl  +  3  -N2  -12 

WRI  TEC  3-  *)  'SINCE  12.  GE.  Nl,  11=',  II,  Nl,  N2,  12 
GO  TO  (1,2,3,  4,  5  )  ,  NOPN 

WORM X( 1,11)  =  WORMX ( 3, N2 ) 

WR  I  TE  (  5,  *>  '-=-=-=-=-=11  ',  II 
WORMX  (2,  1 1  )  =  0.0 
WORMX  <3,  ID  =  -WORMX  (  1 ,  N2  ) 

IF(  WORMX  (  1,  II  ).  EQ.  O.  O.  AND.  WORMX  (3,  1 1  ) .  EG.  O.  0> 

WORMX  (1,11)  =  —WORMX  ( 2,  N2 ) 

CALL  VECT  (N2,  11,12,4) 

GO  TO  14 

CALL  MATM (II,  12, O,  7) 

CALL  VECT  (II,  12,  N2,  4) 

WR  ITEO,  *  )  'CALL . ING  MATM' 

CALL  MATM  (N1,N1,0,  6) 

RETURN 
II  =  Nl  +1 

12  =M3 

DO  11  I  =1,50 
DO  11  N  =N1,  M3 
CALL  MATM (  II ,  12,  0,  7) 

11  =  12 
I2=N 
RETURN 

CALL  MATM(N1,  N2,  N3,  2) 

NLP  N  =3 

CALL  MATM(N3,  Nl,  N2,  NLPN) 

RETURN 

CALL  MATM(N1,  N2,  N3,  3) 

CALL  S I NGOP ( N3,  3 ) 

CALL  MATM ( Nl ,  N3,  N2,  3 ) 

RETURN 

END 

SUBROUTINE  FRONT 

SUBROUTINE  FRONT ( ASDIS,  ELOAD,  EGRHS,  EQUAT,  ESTIF,  FIXED, 

GLOAD, GSTIF,  IFFIX,  IINCS,  I  ITER, KRESL, 

LOCEL, LNODS, MBUFA, MELEM, MEVAB,  MFRON, 

MSTIF, MTOTV, MVFIX, NACVA,  NAMEV, NDEST , 

NDOFN,  NELEM,  NEVAB,  NN ODE,  NOFIX,  NPIVO, 

NPOIN,  NTOTV, TDISP,  TLOAD,  TREAC,  VECRV) 
******»«*»*♦****#****#***#*********#****■*#*##*****»♦*** 

THIS  SUBROUTINE  UNDERTAKES  EQUATION  SOLUTION  BY  THE 
FRONTAL  METHOD. 

ft******************  ************************************ 

DIMENSION  ASDIS ( MTOTV ),  ELOAD (MELEM,  MEVAB ),  EGRHS ( MBUFA > , 

EQUAT (MFRON,  MBUFA),  ESTIF (MEVAB,  MEVAB),  FI XED< MTOTV > , 
GLOAD (MFRON) , GSTIF (MSTIF ) , IFFI X (MTOTV) , 

LNODS (MELEM,  9),  LOCEL ( MEVAB ),  NACVA ( MFRON ),  NAMEV (MBUFA ) , 
NDEST ( MEVAB ) ,  NOF I  X (MVFIX ) ,  NP I VO ( MBUFA ) ,  TDISP ( MTOTV ) , 
TLOAD (MELEM, MEVAB),  TREAC (MVFIX,  NDOFN),  VECRV (MFRON) 
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NFUNC ( I, J)  =  (J*J-J)/2+I 

WRITE ( 50,  *> 'VALUE  OF  KRESL,  AT  BEG  IN  ING ',  KRESL 

WRITE  (50,  *•>  'VALUE  OF  NDOFN,  NPOIN  IN  BEGIN  OF  FRONT ', NDOFN, NPOIN 
WRITE (50,*) 'VALUE  OF  NTOTV  AT  BEGINIG  OF  FRONT', NTOTV 
IIRSL  =  KRESL 

WRIT£(5. *■)  'VALUE  OF  IIRSL  AT  BEGINING  ' ,  I IRSL 

WRITE C50,*>  'VALUE  OF  NELEM,  NEVAB ' ,  NELEM,  NEVAB 
WRI TE< 50, *> 'VALUE  OF  ELOAD  IN  FRONT  BEGINING' 

WR I TE ( 50, * ) ! ( ELOAD ( I,  J) ,  J=l,  NEVAB >.  1  =  1,  NELEM) 

CHANGE  THE  SIGN  OF  THE  LAST  APPEARANCE  OF  EACH  NODE 

WRITE ( 5,  *)  'CHANGE  THE  SIGN  OF  THE  LAST  APPEARANCE  OF  EACH  NODE' 

IF (  1 1  NCS.  GT.  1.  OR  I  ITER.  GT  1  )  GO  TO  455 
DO  140  IPO  IN  =  1,  NPOIN 
KLAST  =  0 

DO  130  IELEM  =  1 ,  NELEM 
DO  120  INODE  =  1 ,  NNQDE 

IFtLNODSf IELEM,  INODE).  NE.  IPOIN)  GO  TO  120 
KLAST  =  IELEM 
NLAST  =  INODE 
CONTINUE 
CONTINUE 

IF  ( KLAST.  NE.  O  )  LNODS  ( KLAST,  NLAST  )  =  -IPOIN 
CONTINUE 
CONTINUE 

START  BY  INITIALIZING  EVERYTHING  THAT  MATTERS  TO  ZERO 

WRITE (5,  *)  'START  BY  INITIALIZING  EVERYTHING  THAT  MATTERS  TO  ZERO' 
WRITE! 5, * )  '***MBUFA,  MSTIF, KRESL*** ' , MBUFA, MSTIF, KRESL,  I IRSL 
DO  145  IB UFA  =1,  MBUFA 
EGRHS  (  IBUFA  )  =  0.  O 
KKRSL  =  KRESL 

WRITE!  5,  *)  'KRESL,  I  IRSL.  KKRSL,  AFTER  EQRHS  =  0.  0 ',  I  IRSL,  KRESL,  KKRSL 
DO  150  ISTIF  =1,  MSTIF 
GSTIF!  ISTIF)  =  0.0 

WRITE!  5,  *•)  '***■* AFTER  GSTIF  =  0. O********* ' 

DO  160  IFRON  =  1  ,  MFRQN 
GLOAD ! IFRON)  =00 
VECRV (IFRON)  =00 
NACVA! IFRON)  =0 
DO  160  IBUFA  =1, MBUFA 

EQUAT!  IFRON,  IBUFA)  =00 

WR I TE! 5,  *)  'IIRSL,  KKRSL,  KRESL  AFTER  160  CON ',  I IRSL,  KKRSL,  KRESL 

AND  PREPARE  FOR  DISC  READING  AND  WRITING  OPERATIONS 

WRITE ( 5, * )  AND  PREPARE  FOR  DISC  READING  AND  WRITING  OPERATIONS' 
NBUFA  =  0 

WRITE  !  5,  *)  'VALUES  OF  KRESL  AFTER  DISC...  '.KRESL  ,  IIRSL,  KKRSL 

IF(KRESL.  GT.  1)  NBUFA  =  MBUFA 

REWIND  1 

REWIND  2 

REWIND  4 

REWIND  7 

WRI TE!5, *> 'AFTER  RWINDING  1 1 ,  KK,  KR ' ,  I IRSL,  KKRSL,  KRESL 

ENTER  MAIN  ELEMENT  ASSEMBLY-REDUCTION  LOOP 

WRITE!5, *) 'ENTER  MAIN  ELEMENT  ASSEMBLY-REDUCTION  LOOP' 

NFRON  =  O 
KELVA  =  0 

IIRSL  =  KRESL 

WRI TE!5, *>  '+++++VALUE  OF  I IRSL,  KRESL+++++ ' ,  I IRSL,  KRESL 
DO  320  I ELET1  =1,  NELEM 

WRITE!  5,  *)  'IELEM,  IIRSL',  IELEM,  IIRSL 
WRITE! 25,*)  'IELEM,  IIRSL'  -  IELEM,  IIRSL 
IF!  IIRSL.  GT.  1  )  GO  TO  400 
KEVAB  =  0 
READ ( 1 )  ESTIF 
DO  170  INODE  =  1 ,  NNODE 
DO  170  IDOFN  = 1 ,  NDOFN 
NPOSI  =  !  IfJODE-1  )*NDOFN+ IDOFN 
LOCNO  =  LNODS! IELEM,  INODE) 

IF ! LOCNO. GT  0 )  LOCEL(NPOSI)  =  ! LOCNO- 1 )*NDOFN+ IDOFN 
IF (LOCNO.  LT.  0 )  LOCEL(NPOSI)  =  !L0CN0+1 >*NDOFN- IDOFN 


CONTINUE 
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START  AT  LOCKING  FOR  EXISTING  DESTINATIONS 

WRI  TEC 5.  ■»>  'START  BY  LOOKING  FOR  EXISTING  DESTINATIONS' 

DO  210  IEVAB  =1 . NEVAB 
NIKNO  =  IABS(LOCEL( IEVAB > > 

KEX IS  —  0 

WRITE (25, *> 'NIKNO  AT  AFTER  KEXIS  =0. 0 NIKNO. IABS(LOCEL( IEVAB ) ) 
WRITE  (5,  *)  'NFRON=i  ' ,  NFRON 
DO  ISO  IFRON  =1, NFRON 

WRITE  (25,  *>'  IFRON,  NIKNO-  NACVA  IN  180 IFRON,  NIKNO.  NACVA(  IFRON) 
IF(NIKNC  NE.  NACVA  (  IFRON)  )  GO  TO  180 
KEVAE  =  KEVAE  +  1 
KEXIS  =  1 

NDEST (KEVAE)  =  IFRON 
CONTINUE 

IF(KEXIS.  NE.  0)  GO  TO  210 

WE  NOW  SEEK.  NEW  EMPTY  PLACES  FOR  DESTINATION  VECTOR 
DO  190  IFRON  =1 , MFRON 

WRITE  (25,-*)  'NACVA  AT  190  F I RST  NACVA  (  IFRON ) 

IF C NACVA < IFRON > .  NE.  O )  GO  TO  190 
NACVA (IFRON)  =  NIKNO 

WRITE  (25,-*)  'NACVA,  NIKNO  IN  190  SECOND NACVA  ( IFRON  >,  NIKNO 
KEVAS  =  KEVAB+1 
NDEST (KEVAS)  =  IFRON 
GO  TO  200 
CONTINUE 

THE  NEW  PLACES  MAY  DEMAND  AN  INCREASE  IN  CURRENT  FRONTWIDTH 

IF ( NDEST( KEVAE >GT.  NFRON)  NFRON  =  NDEST (KEVAB  > 

CONTINUE 

WRITE<5, *> 'COMES  OUT  OF, WE  NOW  SEEK  EMPTY  PLACES .  ' 

WR I TE ( 7 )  LOCEL,  NDEST,  NACVA,  NFRON 
WRITE(5- *> 'WRITES  ON  TO  UNIT  7' 

WR  I  TE  (  5,  *>  LOCEL,  NDEST,  NACVA,  NFRON 
GO  TO  400 

IF  (  IIRSL.  GT.  1  )  READ  <  7  )  LOCEL,  NDEST,  NACVA,  NFRON 

WRITE (5,*)  'START  ASSEMBLING  ELEMENT  LOADS' 

ASSEMBLE  ELEMENT  LOADS 

WRI TE( 5, *> 'ELEMENT  STIFFNESSES  BUT  NOT  IN  RESOLUTION' 

WRI  TE(  5,  *)  'ELEMENT  NO.  =',IELEM 

WRITE (20,*)  'ELEMENT  NO.  =  ',  IELEM 

WRI  TE<5,  *)  (  ( EST I F  (  IF,  JF  ) ,  JF=IF,  IF),  IF=1,  45) 

WR  I  TE  ( 45,  *  )  'ELEMENT  NO.  =',  IELEM 
DO  220  IEVAB  =1,  NEVAB 
IDEST  =  NDEST( IEVAB) 

GLOAD ( IDEST)  =  GLOAD ( IDEST  >  +  ELOAD < IELEM,  IEVAB ) 

WRITE (50,*) 'NEVAB,  IEVAB,  I DEST, GLOAD,  ELOAD  ' 

WRITE (50. *)NEVAB,  IEVAB,  I DEST, GLOAD ( I DEST ), ELOAD < IELEM,  IEVAB) 

ASSEMBLE  THE  ELEMENT  STIFFNESSES  BUT  NOT  IN  RESOLUTION 

IFdIRSL  GT  1)  GO  TO  402 
DO  222  JEVAB  =1,  IEVAB 

WRI  TE(45,  *>  'NEVAB,  IEVA3,  JEVAB,  NDEST < IEVAB ), NDEST ( JEVAB )  ' 

WRITE (45,*) NEVAB-  IEVAB, JEVAB,  NDEST ( IEVAB ), NDEST ( JEVAB ) 

JDEST  =  NDEST (JEVAB) 

NGASH  *  NFUNC ( IDEST,  JDEST) 

NGISH  *  NFUNC (JDEST,  IDEST) 

IF( JDEST  GE  I DEST) GST  IF ( NGASH >=GST IF < NGASH )+EST IF ( IEVAB,  JEVAB)  B) 

IF( JDEST  LT.  IDEST ) GST IF (NGISH) =GSTIF (NGISH )+EST IF ( IEVAB, JEVAB)  B) 

WRI TE(45, *)  'VALUEOF  NGASH.  NGISH, GST IF,  IDEST,  JDEST, ESTIF, VBS  ' 

WRITE (45, * ) NGASH,  NGISH,  GST IF (NGASH) ,  GSTIF (NGISH) ,  IDEST,  JDEST, 

EST I F ( I E VAB ,  JEVAB ) ,  I EV AB , JEVAB 
CONTINUE 
CONTINUE 
CONTINUE 


RE-EXAMINE  EACH  ELEMENT  NODE,  TO  ENQUIRE  WHICH  CAN  BE  ELIMINATED 


I IRSL,  KRESL 


WRI TEC  5, *)  'RE-EXAMINE  ELEMENT  NODE 

UR  I  TE (  5;  *)  ' . I  IRSLi  KRESL.  .  .  . 

WRITE (5, *) 'VLAUE  OF  NEVAB  = ' , NEVAB 
WRI TE( 50, *)  'ELEMENT  NO.  = ' .  IELEM 
WRITE! SO.*)  'VALUE  OF  GSTIFC406)  INITIAL GSTIFC406) 

DO  310  IEVAB  =  1,  NEVAB 

WRI  TEC  5,  *>  'VALUE  OF  IEVAB  AT  310'.  IEVAB 
NIKNO  =  -LOCELC IEVAB ) 

WRITE!  5,*)  '  N I  KNQ=  AT  310',  NIKNO 

IFCNI  KNO.  LE.  0)  GO  TO  310 

FIND  POSITIONS  OF  VARIABLES  READY  FOR  ELEIMINATION 

WRI TECS,*)  'NFRON ' , NFRON 
DO  30  0  IFRON  =1,  NFRON 

WRITEC5,*)  '++++++++++++ I FRON  =++++++++',  IFRON 
WRI TECS, *)  'VALUE  OF  NAC VA < I FRON ),  NIKNO NACVA ! IFRON ),  NIKNO 
IFCNACVAC IFRON).  NE.  NIKNO)  GO  TO  300 
NBUFA  =  NBUFA  +  1 

WRI TEC  SO,*)  ' IRFON—  ' ,  IFRON,  'NBUFA= ' , NBUFA 

WRITE  EQUATIONS  TO  DISC  OR  TO  TAPE 

WRI TECS, *) 'WRITE  EQUATIONS  TO  DISC  OR  TO  TAPE' 

WRI TEC  5, *)  'NBUFA,  MBUFA ' ,  NBUFA,  MBUFA 
IF C NBUFA.  LE.  MBUFA)  GO  TO  406 
NBUFA  =  .1 

WRI TECS, *) 'VALUE  OF  NBUFA  IF  NBUFA  GT  MBUFA NBUFA, I IRSL 
IFC  I  I  RSL.  GT.  1  )  GO  TO  408 
WRITE (2)  EGUAT ,  EGRHS.  NP I VO. NAMEV 
GO  TO  406 

WRITE! 4)  EGRHS 

READ! 2 )  EGUAT ,  EGRHS, NP I VO,  NAMEV 
CONTINUE 

EXTRACT  THE  CO-EFFICIENTS  OF  THE  NEW  EQUATION  FOR  ELEIMINATION 
WRI TEC  5,  *)  'EXTRACT  THE  CO-EFFICIENTS  OF  THE  NEW  EQUATION' 

WRI TEC  5,  *)  '++++VALUE  OF  KRESL+++  ',  I IRSL, KRESL 
IFC  II  RSL.  GT.  1  )  GO  TO  404 
IFCKRESL  GT.  1  )  GO  TO  404 

WRI  TEC  5,  *)  ' . MFRCN=  ',  MFRQN,  IFRON 

WRI TEC  50, *)  'VALUE  OF  GST IFC 406)  AFTER  406  CONT ' , GSTIF ! 406 ) 

DO  23  0  UFRON  =1,MFR0N 

IFC  IFRON  LT.  UFRON)  NLOCA  =  NFUNC  C  IFRON,  JFRON ) 

IFC IFRON  GE.  UFRON)  NLOCA  =  NFUNC C UFRON,  I FRON ) 

EQUAT (UFRON,  NBUFA)  =  GSTIF  CNLOCA ) 

GST  IF  (NLOCA)  =0.0 
CONTINUE 

AND  EXTRACT  THE  CORRESPONDING  RIGHT  HAND  SIDES 
WRI TEC  5, *)  'EXTRACT  CORRESPONDING  RHS ' 

EQRHSC NBUFA)  =  GLOAD C IFRON) 

GLCAD C IFRON)  =  0.  0 
KELVA  =  KELVA  *1 
NAMEV (NBUFA)  =  NIKNO 
NP I VO (NBUFA)  =  IFRON 

DEAL  WITH  PIVOT 

WRITEC5, *) 'NOW  START  DEALING  WITH  PIVOT' 

WRI TECS, *) 'EQUAT ( IFRON, NBUFA), IFRON, NBUFA', EQUAT ( IFRON, NBUFA), 

IFRON,  NBLFA 
EQUATCS.  3)  =  10 
PIVOT  -  EQUAT! IFRON,  NBUFA) 

WRI TEC  50,*)  'IFRON, NBUFA, PIVOT' 

WRI TEC  SO,*)  IFRON, NBUFA, PIVOT 
WRI  TECS,  *)  'NIKNO,  PIVOT  ',  NIKNO,  PIVOT 
IFCPIVOT.GT  0)  GO  TO  235 
WRITE (6, 900)  NIKNO, PIVOT 

FORMAT! 1H0, 3X,  51HNEGATIVE  OR  ZERO  PIVOT  ENCOUNTERED  FOR  VARIABLE  LE  N 
0  ,  14,  10H  OF  VALUE  , E17.  6) 

STOP 

CONTINUE 

EQUAT  C  IFRON,  NBUFA)  =0.0 
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ENQUIRE  WHETHER  PRESENT  VARIABLE  IS  FREE  OR  PRESCRIBED 
IF( IFFIX (NIKNO)  EQ.  O)  GO  TO  250 
DEAL  WITH  A  PRESCRIBED  DEFLECTION 
DO  24  0  JFRON  -l.NFRON 

GLOAD ( JFRON >  =  GLOAD ( UFRON >  -FIXED (NIKNO ) *EQUAT <  JFRON,  NBUFA) 

GO  TO  2S0 

ELIMINATE  A  FREE  VARIABLE  -  DEAL  WITH  THE  RIGHT  HAND  SIDE  FIRST 
DO  270  JFRON  =  1 , NFROM 

GLOAD (JFRON)  =  GLOAD ( JFRON ) -EQUAT ( JFRON.  NBUFA ) *EQRHS ( NBUFA ) /P I VQT 
NOW  DEAL  WITH  THE  CO-EFFICIENTS  IN  CORE 
IFdIRSL  .  GT  1)  GO  TO  418 

IF  (  EQUAT  (  JFRON,  NBUFA).  EQ.  0.  0)  GO  TO  270 
NLOCA  =  NFUNC (0,  JFRON) 

CUREQ  =  EQUAT (JFRON,  NBUFA) 

DO  260  LFRON  =  1,  JFRON 
NGASH  =  LFRON+NLGCA 

GST IF  v  NGASH )  =  GST  IF (NGASH)  -CUREQ*EGUAT (LFRQN,  NBUFA) /PIVOT 

CONTINUE 

CONTINUE 

EQ  U A  T  < I FP ON ,  NBUFA )  =  PI VO  T 

RECORD  THE  NEW  VACANT  SPACE,  AND  REDUCE  FRONTWIDTH  IF  POSSIBLE 

NACVA ( IFRON)=  0 
GO  TO  290 

COMPLETE  THE  ELEMENT  LOOP  IN  THE  FORWARD  ELIMINATION 
CONTINUE 

IF ( NACVA (NFR ON )  NE  0)  GO  TO  310 
NFRQN  =  NFRON  -1 
IF ( NF RON  GT  O)  GO  TO  290 
CONTINUE 
CONTINUE 
EQUAT  (3.  3)  -  1.0 

IFdIRSL  EG  1)  WRITE(2)  EQUAT ,  EQRHS,  NP  I  VO,  NAMEV 
BACKSPACE  2 

WR I TE ( 5,  *>  'ENTERS  BACK-SUBSTITUTION  PHASE.  .  .  .  ' 

ENTER  BACK-SUBSTITUTION  PHASE,  LOOP  BACKWARDS  THROUGH  VARIABLES 

WRITE  (50,-*)  '  KELVA35  ' ,  KELVA,  NBUFA 
DO  34  0  IELVA  =1,  KELVA 

READ  A  NEW  BLOCK.  OF  EQUATIONS  -  IF  NEEDED 

IF (NBUFA  NE,  O)  GO  TO  412 
BACKSPACE  2 

READ ( 2 )  EQUAT,  EQRHS,  NP I VO,  NAMEV 
BACKSPACE  2 
NBUFA  =  MBUFA 
IF(  IIRSL  EQ.  1  )  GO  TO  412 
BACKSPACE  4 
READ  (  4  )  EGRHS 
BACKSPACE  4 
CONTINUE 

PREPARE  TO  BACK-SUBSTITUTE  FROM  THE  CURRENT  EQUAITON 

IFRON  =  NPIVO( NBUFA) 

NIKNO  *  NAMEV (NBUFA) 

PIVOT  =  EQUAT ( IFRON,  NBUFA) 

IF< IFFIX(NIKNO)  NE  0)  VECRV(IFRON)  35  FIXED(NIKNO) 

IF (  IFF  I  X  (NIKNO  > .  EQ.  0  )  EQUAT  (  I FRON,  NBUFA )  =0.0 

WRI  TE(  50,  *  )  '  IFRON,  NIKNO,  PIVOT,  VECRV  (  IFRON ) ,  FIXED  (NIKNO)  ' 

WRITE (50,  *> IFRON,  NIKNO,  PIVOT,  VECRV ( IFRON),  FIXED (NIKNO) 


BACK -SUBSTITUTE  IN  THE  CURRENT  EQUATION 
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3  0 


3  40 


3  5 


3"0 

3  0 

:>  J 

370 


10 

0 


3  3 


DO  33  0  JF  RON  = 
EGRHS ( NBUFA : 


1,  MFROM 

=  EGRHS ( NBUFA ) -VECRV ( JFRON ) »EQUAT ( JFRON, NBUFA) 


PUT  THE  F  INAL  VALUES  WHERE  THEY  BELONG 


VECRV ( IFRON)  =  EGRHS ( NBUFA ) /P I VQT 
FI XED ( N  IKNQ )  =  -EGRHS < NBUFA ) 


IF  <  IFF  I  X  ( N  IKNQ  ? .  EG.  CO 
IF(  IFFIX  (NIKNO) .  NE.  0) 

NBUFA  =  NBUFA  -1 

ASDIS (NIKNC)  =  VECRV  < IFRON  > 

CONTINUE 

WRITE(5,  •*>  'ADD  DISPLACEMENTS . ' 

ADD  DISPLACEMENTS  TO  PREVIOUS  TOTAL  VALUES 
WR  I  TE  (  50,  •>  )  'NTOTV—  ' ,  NTOTV 
DO  345  ITOTV  =  1 , NTOTV 

TD I SP  <  I TQTV  >  =  TDISP ( ITOTV )+ASD IS ( ITOTV) 


WRI TE( 50. * )  'NTOTV,  TDISP,  ASDIS  ' 

WR I TE  < 50, * >  NTQ TV,  ( TDISP ( ITD ) ,  I TD= 


1 , NTOTV) 


STORE  REACTIONS  FOR  PRINTING  LATER 
KBOUN  =  1 

DO  370  IPO  IN  =  1,NPQIN 
NLOC A  =  ( T  PO I N- 1 > *NDOFN 
DO  35  0  I  DGFN  =1,ND0FN 
NGUSH  =  NL.OCA+ IDOFN 
IF  (  IFFIX  UJGUSH)  .  GT  0)  GO  TO  360 
CONTINUE 
GO  TO  370 

DO  510  IDOFN  -l.NDGFN 
NGASH  =  NLOC A  +  IDOFN 

TREAC  (KBOUN,  IDOFN)  =  TREAC ( KBOUN,  I DOFN )  +  FIXED ( NGASH ) 
WRITEC5,  *>  'IDOFN,  KBOUN,  TREAC (KBOUN,  IDOFN,  FI XED, NGASH ' 

WRITE  (5.  >)  IDOFN,  K.30UN,  TREAC  (KBOUN,  IDOFN),  NGASH,  FI  XED  (NGASH) 
KBOUN  =  KBOUN  +1 
CONTINUE 


ADD  REACTIONS  INTO  THE  TOTAL 
WR  I  TE  (  5 .  ->  >  'ADD  REAC  T  I ONS  ' 


LOAD  ARRAY 


DO  700  IPO  IN  =  1 .  NP  0  I N 
DO  710  I EL EM  ~ 1 , NELEM 
DO  710  INOCE  = 1 , NNGDE 
NLOC A  =  IABS(LNODS( IELEM,  INODE) ) 
IF  (  IPOIN.  EG.  NLOC  A)  GO  TO  720 
DO  730  IDOFN  =1,ND0FN 
NGASH  -  (  I  MODE- 1 >*NDOFN+ IDOFN 
NGASH  *  (  IPOIN- 1 >*NDOFN+IDOFN 
WR I TE ( 50, *> ' TLQAD ( IELEM, NGASH), 
WR  I  TE  (  50 ,  -*  )  TLOAD(  IELEM,  NGASH) 
TLOAD  (  IELEM,  NGAS 
CONTINUE 
WRI  TE  (  5,  *)  START 
GO  TO  333 
RETURN 
END 


IELEM, NGASH' 

IELEM,  NGASH 
H  >  =TLOAD( IELEM, NGASH ) +F I XED ( MGASH > 

RETURNING  FROM  FRONT' 


:| 

I 

I 


SUBROUTINE  FUNC 

SUBROUTINE  FUNC  (  EMATX,  SHAPE,  THICK,  NBQRP,  NNtJDE,  ZETA, MELEM, 

COORD,  DICOS,  l.NODS,  IELEM,  MPOIN,  M3P0I,  GMATX) 

*•»**  «••***•»  *•*•***■*  •*-*,!•*•»■»-*■** ***•»*■»■**»***•&*****•*******•*■*##*#*#•**#•##*#*# 
SETS  UP  THE  CB3  MATRIX  AND  UACOBIAN,  BEING  THE  MOST  CHARECTERISTIC 
SUBROUTINE  OF  THIS  ELEMENT 

***** -**■*•-*•**•»  *  **************  ************************************ 
COMMON  WORMX  (  3,  24  ) ,  QVALU,  DJACB 

DIMENSION  BMATXO,  45),  SHAPE  ( 3,  9),  THICK  <  MPOIN ) ,  GMATX  (2#  45), 

COORD ( MPO IN, 8) , DIC0S<3,  M3P0I ),  LNODS(MELEM,  9) 

THIS  CREATES  X,  Y,  Z  IN  COLUMN  1  AND  J-TRANSPOSE  IN  COLUMN  2-4 

DO  20  I  =1,3 
DO  20  J  =1,4 
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WOR MX* I.  J>  =  0  0 

WR  I  TE  ( 20,  -*  >  '  SHAPE  I N  FUNC  ' 

WRITE  (20.  383)  f  (SHAPECI,  J),  J=l,  9).  1  =  1, 3) 

FORMAT  (  IX,  3F14  7) 

THE  ELEMENT  GEOMETRY  IS  DEFINED  BY  THE  8-NODE  SERENDIPITY 
PPN  =  S 

DO  24  INODF  =  1,PPN 

IPO IN  =  i «BS ( LNODS ( IELEM,  INODE) ) 

WR  I  TE  f  5,  ■*)  '  I PO I N  IN  FUNC$*$*  ',  IPO  IN,  IELEM,  INODE 

DO  24  K  =1,3 
STOP  =  C QQRD  (  IPOIN.  V,  > 

GBOT  =  COORD*  IFOIN,  (<.+4) 

GOSH  =  (  ( 1  G+ZETA?*GTQP  +  < 1 .  O-ZETA ) *G30T  >  /2.  0 
WRI  TE(  5,  *)  'GTOP,  GBOT,  GOSH.  .  .  .  ',  GTOP,  GBOT,  GOSH 
DO  22  J  =1,3 

WR  I  Tc  <  20,  >  >  'WORMXiK,  J)  ',  WORMX(K,  J),  'A=',K,  'J=',J 
WOP.  MX  (  K  J)  ~  WORMX  -M,  J  )  +GOSH*SHAPE  (  J.  INODE) 

WOR  MX  *  K  ,  4 )  =  WORMX  (K,  4)  +  SHAPE  (  1 ,  I  NODE  >•»(  GTOP-GBOT  )  /2.  O 
THIS  CREATES  J  INVERSE  IN  COLUMNS  5-7  OF  WORMX 
CALL  MATM  <2,  5,  O  1  > 

DJACB  =  1  O/QVALU 

EXIT  EOF  A  CASE  WHEN  J.  J-INVERSE  AND  DET-J  ONLY  ARE  REQUIRED 

IFCNBOPF.  EQ.  2)  GO  T0  50 

THIS  CREATES  DIRECTION  ZETA  NORMAL  TO  XI  AND  ETA 
CALL  VEC  T  (  2,  3,  10,4) 

THIS  CREATES  A  LOCAL  CARTESIAN  SET 
NFR  =  S 

CALL  FRAME  (NFR.  10,  0,1) 

IF<NEOF:i- .  EG  4)  GO  TO  50 

CREATES  THE  TERMS  OF  STRAIN/ DISPLACEMENT  MATRIX 

DO  40  INODE  = l .  NN3DE 
DO  40  INODE  =1,  1 
DO  40  J  =1,5 

5  SHAPE  FUNCTIONS  CREATED  AT  A  NORMAL 
NSHAP  =  5->  (  I  NODE  -  1  >  +  U 

WRITE  (20,  4)  '  INODE,  J,  NSHAP  INODE,  U,  NSHAP 

DO  26  I  =11,  17 
DO  26  K  =  1,3 

WOR  MX  (  F  I  "•  =  O  0 
IF ( J  GE  4)  GO  TO  30 
DO  29  W  -  !  ,  ,3 

SHAPE  AND  XI  AND  ETA  DERIVATIVES 
WORMX  t  -vMO:  =  SHAPE  'K,  INODE) 

WRITE.'..’,:.  t>  '  NCHMX  <  J,  p  +  10)  =',  WORMX  (  U,  K+10) 

SO  TO  36 

UPO  SI  —  —3 

JP OS  I  IS  1,2  FOR  LOCAL  X, Y  DEFLECTIONS  OF  ENDS  OF  NORMA 
DO  35  M  =1,3 

X,  Y,  Z  COMPONENTS  OF  LOCAL  X, Y  DEFLECTIONS 
IPOIN  =  I  AES (LNODSI IELEM,  INODE) ) 

IPOS I  =  <  IPOIN-t 

gash  =  d i : os ■ n .  i p as i+upgsi > 

IF (UP  OS  I  NE  2)  GO  TO  32 
GASH  =  -GASH 
DO  t>4  W  —  1,4 

SHAPE  AND  ITS  XT,  ETA  DERIVATIVES  -  K-4  GIVES  SPECIAL  ZETA  DRIVATIVES 
IF  ( A  EG  4)  GO  TO  31 

WORMX  (M,  P  +  10)  =  ZETA*SHAPE(A,  INODE ) *GASH*< THICK ( IPOIN ) /2.  0 ) 

U,  V, W  ARE  NOW  IN  COL  11 
GO  TO  34 

WORMX  31,  M-*- 10)  =  SHAPE!  1,  INODE )  *GASH*  ( THICK  <  IPOIN ) /2.  ) 

CONTINUE 

CONTINUE 

THIS  TRANSPOSES  X I , ETA  AND  ZETA  DERIVATIVES  OF  U, V, W 
CALL  SINGOP  (12,3) 

WRI  TEC  5,  »)  'COMES  OUT  OF  SINGOP,  J  =  '.J 
MULTIPLIES  BY  J-INVERSE  TO  FORM  X-Y-Z  DERIVATIVES  OF  U, V, W 
CALL  MATM<  5,  12,  15,  3) 

TRANSFERS  X,  Y.  Z  DERIVATIVES  OF  U,  V,  W  FROM  COL  15  TO  COL  18 
WRI TE! 5. 4) 'ENTERS  MATM  WITH  NPON  =  8' 

NPN  =  S 

CALL  MATM  <  15.  13.  0,  NPN) 

WRI  TE*  5,  'COMES  OUT  OF  MAIM  WITH  NOPN  =3' 
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:  writer,  ->>  ' caries  out  of  math  with  npon  =  8' 

l  WRITEf20,  ■*)  'VALUE  OF  WORMX  IN  FUNC  ' 

WRITEC20.  1 1  9  1  ?  i  '  WORMX  C  IK  I ,  JKJ  ) ,  JKJ=1  -  24) ,  IKI  =  1,  3) 

:  191  FORMAT <  IX,  3E1 4  7) 

THIS  CONCERTS  TO  LOCAL  AXES  AT  INTEGRATING  POINT 
I NN  =8 
JNN  =  IQ 
KNN  =0 1 

CALL  FRAME  ‘  IMN-  JNN,  KNN,  4) 

WR  I  TE  (  5 ,  *  • 

WR I  TE  (?,»:>•  C  OMESOUTOFFRAME  I  N  F  U  N  C  ' 
WRITE:  2-j ,  »:■  VALUE  OF  WORMX  IN  FUNC  ' 

WRITEC20.  1191'  (  (WORMX C  IK  I,  JKJ),  JKJ=1,  24),  IKI=1,  3) 

)il91  FORMAT  (  IX,  3E  14.  7  > 

:  SETS  UP  THE  STRAIN  MATRIX  TERMS 

IFCNBGRP.  EG.  0:  GO  TO  39 
BMATX  •'  1 ,  NStiAP  •  --  WORMX  (  1 ,  18) 

BMATX  2.  NSHAP  >  WORMX  <  2,  19; 

BMATX  (3,  NSHAP  '  -  WORMX  (2,  18)  +  WORMX  Cl,  19) 

BMATX  <  4  •  NS  HAP  '  -•  WORMX  (  1 .  20  )  +  WORMX  (3;  18) 

BMATX  C  3, NSHAP )  =  WORMX (2, 20)  +  WORMX (3,  19  > 

WRI TE< 20, *) 'COMPONENTS  OF  BMATX' 

:  WRITE' 20  •>  •  C  BMATX  (  IX,  NSHAP).  IK=1,  5) 

:  ->  LO CL  STRAINS  GO  IN  BMATX  IN  THE  ORDER  X,  Y,  XY,  XZ,  YZ 

GMATX  C 1 ,  NSHARF  =  WORMX  C  1 ,  20 ) 

GMATX (2, NSHARR •  =  WORMX <2, 20) 

-■**  LOCAL  DERIVATIVES  GO  IN  -GMATX-  IN  THE  ORDER  DW/DX,  DW/DY 

GO  TO  40 
CONTINUE 

■*  TRANSVERSE  SHEAR  TERMS  FOR  SELECTIVE  INTEGRATION 

GMATX < 1 , NSHAP )  =  WUHMX ' 1 , 20 ) +WORMX < 3,  18) 

GMATX (2, NSHAP >  =  WORMX < 2, 20 )+WORMX (3. 19) 

+  CONTINUE 

:  WR 1 TE ( 5  >  * )  ' C  OME  SOU  T  OF  40' 

;  PAUSE 

GO  TO  50 

WRITEC5-  O  'RETURNING  BACK  TO  BGMAT ' 

RETURN- 

END 


1 


I 


5UBlT0UTTFfr"GS!jV:SL - 

SUBROUTINE  CAUSES C NGAU3, POSGP, WEIGP) 

*■>-»■*  -i  :■  *  •*  ;  *■*->-*  ■a- .* *•-*■*  *■**-*■**■#•  •»■■»•* *■»*****■»**•»*•»••»•*■»■•»•»•»■»■»* 

THIS  SUBROUTINE  SETS  UP  THE  GAUSS-LEGENDRE  INTEGRATION  CONSTANTS 

*•*  >  f-f  ;  -*****  >»-»<H>»»-«»THH»iHHH»-»#->it*»*HHHHHf******************** 

D I MEN  S I ON  POSGP f 5 1 .  WE  I GP  <  5 ) 

DO  2  I GASH  =1,5 
POSGP (I GASH)  =  0.0 
WEIGP  C IGASH)  =00 
IFCNGAUS  GT  2)  GO  TO  4 
POSGP (!)  =  -O  577350269189626 
WEIGP  c  1  )  =  1.0 
GO  TO  8 

POSGPCi)  -  -O  7745^6669241483 
POSGP  (2)  =  0.  O 

WEIGP  (1)  =  0.5555555555555556 
WEIGP (2)  =08888388888888889 
KGAUS  =  NGAUS/2 
DO  10  IGASH  =1, KGAUS 
JGASH  =  NGAUS  +  1  -IGASH 
POSGP (JGASH)  =  -POSGP ( IGASH) 

WEIGP (JGASH)  =  WEIGP (IGASH) 

CONTINUE 

EXTRA  POSITION  FOR  TWO  GAUSS  POINT  RULE (SELECTIVE  INTEGRATION) 
POSGP (4)  =-0.57735026918926 
WEIGP (4)  =1.0 
POSGP (5)  *  -POSGP (4) 

WEIGP (5)  =  WEIGP ( 4 ) 

RETURN 

END 


SUBROUTINE  GEOMECESTIF,  GMATX,  STRSG,  MEVAB,  NEVAB,  MTOTG,  KGAUS,  DVOLU) 
*********•*«***»««•»************««*******#*******•**#***•»*******•* 
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THIS  SUBROUTINE  CALCULATES  THE  GEOMETRIC  MATRIX  -GEMTX- 

****  **■*»•* -a-s-fr* ****•*■»• -a- •**«■•»■*  ********************************** 

DIMENSION  ESTIF(MEVAB,  MEVAB ) ,  GMATX<2,  43),  STRSG(5, MTOTG ) ,  43). 

GEMTX  (  45.  43),  GDUMM  (2,  45),  STDUM <2,  2) 

DO  5  IEVAB  =1,  NEVAB 
DO  5  JEVAB  =1, NEVAB 
GEMTX  ( IEVAB,  JEVAB  )  =0.0 

SET  UP  -STUDM-  MATRIX  WITH  THE  ACTUAL  IN-PLANE  STRESSES 
STDUM  (1,1)  =  STRSG ( 1 , KGAUS  > 

STDUM (1,2)  =  STRSG ( 3 , KGAUS  > 

STDUM (2,1)  =  STRSG (3, KGAUS) 

STDUM (2, 2)  =  STRSG (2, KGAUS) 

EVALUATE  THE  PRODUCT  OF  STUDM*GMATX 
DO  10  I  =1,2 
DO  10  IEVAB  =  1, NEVAB 
GD'JMM  (  I ,  IEVAB  )  =  O  O 
DO  10  J  -  1  ,  ? 

GDUMM  (  ! .  TEVAB  )  =Gi/UMM  (  I,  IEVAB  ) +STDUM  (  I,  J)»GMATX(  J,  IEVAB  ) 

CALCULATE  THE  GEOMETRIC  MATRIX 
DC  20  IEVAB  =1.  NEVAB 
DO  20  JEVAB  =  IEVAB. NEVAB 
on  20  T  al 

* ’gem  rx ( IEVAB.  JEVAB ) =GEMTX ( IEVAB, JEVAB ) +GMATX ( I ,  IEVAB)* 

GDUMM ( I, JEVAB )*DVOLU 

EVALUATE  THE  NEW  STIFFNESS  MATRIX  ADDING  —GEMTX— 

DO  30  IEVAB  =1.  NEVAB 
DO  30  JE .AD  = IEVAB, NEVAB 

EST IF ( IEVAB.  JEVAB ) =£STIF< IEVAB,  JEVAB  > +GEMTX ( IEVAB,  JEVAB) 

return 

END 


SUBROUTINE  INCREM?  ELCAD, FIXED.  I INCS, MELEM, MEVAB, MITER, 

MTU  TV,  MVFl X,  NDOFN, NELEM, NEVAB, NOUTP, 

NOFIX, NTOTV. NVF l X , FRESC, RLOAD, TFACT , 

TLOAD,  TQLEU  t .NODS'  IFFIX,  NNODE,  NCOLA, 

NRES  T,  K  INCS  :• 

*•»*•»*•;•  ,  >•  -  {.  ?  *<W':»->->****«**»*»*«****»****** 

THIS  DUDRCUTINE  INCREMENTS  The  APPLIED  LOADING 

***-»  •*-•••’<  •••» <♦  -.  a**-*-:***  *-i  -■»***  a************************* 

DIMENSION  ELCAD  •.  MELEM.  MEVAB)  ,  F I  XED  (  MTOTV  ) ,  NOUTP  (2),  NOFI  X  ( MVFI X  ) , 
PRES''  \MVFIX,  NDOFN).  PLOAD  ( MELEM,  MEVAB),  TLOAD  (MELEM,  MEVAB), 
LX'i  CD  3  MELEM  9),  IFFIX  ‘  MTOTV  ) 

WRI  ?£(  J-  :•  '  NRC  IT,  I  INCS,  KINGS,  NEVAB  ' 

WR  I  TE  (  GO.  >  N«EST  I  INCS,  K  INCS 
IF  (NR  EST  EQ  0)  G-J  !  Li  20 
IF  ' II  NOS  GT  KINDS.  GO  TO  20 
DO  1 0  T IMCS  =  1 ,  K INCS 
READ'  1  5.  950/  FACTO 
WRITE  is,  900)  I INCS 

FORMAT (///,  5X,  22H###  INCREMENT  NUMBER  ,15) 

READ  <  15, 950'  FACTO,  TOLER,  MITER,  NOUTP ( 1 > , NOUTP ( 2 ) 

FORMAT.1  2F 10  5,315) 

TFACT  =  TFACT  +  FACTO 

WRITE (6, 960) TFACT,  TOLER- MITER.  NOUTP ( 1 ), NOUTP (2) 

FORMAT  (  1H0,  5X,  13HL0AD  FACTOR  =,  F10  5,5X, 

24H  CONVERGENCE  TOLERANCE  =.  F10.  5,  5X,  23HMAX.  NO.  OF  ITERATIONS-,, 
15,  //32H  INITIAL  OUTFUT  PARAMETER  =,  1 5,  5X,  26HFINAL  OUTPUT  PA 

ARAMETE9  =,  I  5  ) 

WRI  TE  (  50,  *  )  'FACTO=',  FACTO 
DO  eo  I EL EM  =1.  NELEM 
DO  30  IEVAB  = 1.  NEVAB 

ELOAD ( I EL EM,  IEVAB ) =ELOAD ( IELEM,  IEVAB S +RLOAD( IELEM,  IEVAB )*FACTO 
TLOAD ( IELEM,  I EVAD ) =TLOAD ( IELEM,  I EVAB ) +RLOAD ( IELEM,  IEVAB)*FACTO 
WRITE (50,  *> 'ELOAD  IN  80  ', ELOAD'  IELEM,  IEVAB ) .  IELEM,  IEVAB,  RLQAD( 
IELEM,  IEVAB) 

WRI TE( 50, * ) 'SOME  OUTPUTS  FROM  INCREMEN ' 

WR I TE ( 50, * )  'FACTO-  ', FACTO 
WR I TE ( 50, * ) 'RLOAD ' 

WRITE' 50,  o ) ( ( RLOAD ( IL,  JL ) . JL=1, NEVAB  > -  IL-1.  NELEM) 

WRI TE ( 50, * ) 'ELOAD ' 

WRI TE( 30. *) (  (ELOAD i IL,  JL ) ,  JL=1, NEVAB  > ,  IL-1. NELEM) 
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WRITE  (50.  -*  .  '  TLGAD 

WR  I  TE (  50.  >  <  (  TLOAD •'  IL.  JL  > ,  JL=1,  NEVAB),  IL=1 ,  NELEM) 

INTRPRET  FIXITY  DATA  IN  VECTOR  FORM 

DO  100  I TCTV  =1, NTOTV 
00  FI  XED  <  ITOTV)  =  0.  0 

WR  I  TE  (  50 ,  >  >  '  NVF  IX'.  NVF  I  X 
DO  110  I VF IX  -l .  NVF I  X 
NLOCA  =  ( NOF I  X  t  I VF I  X  '  -  1  > > NDOFN 
DO  110  IDOFN  = 1  NDOFN 
NGASH  =NLOCA+ IDOFN 

FIXED  ( NOASH.'  -PRESC  i  IVFIX.  IDOFN)  *FACTO 

WR  I  TE  (  T'O .  ■>  >  'NGASH,  F  I  <  ED  (  NGASH  ?  ,  PRESC.  FACTO' 

WRITE  (SO.* '-NGASH,  F l XED'NGASH) ,  PRESC  (  IVFIX,  IDOFN),  FACTO 
.1.0  CONTINUE 

:  ADDITIONAL  CONSTRAINTS  FOR  THE  HETEROSIS  ELEMENT 

IF < NNODE  EG.  S  OR  NCOLA  NE.  1)  GO  TO  130 

DO  120  IE LEM  -  1  NELEM 
LN0D9  =  GOODS' IELEM.  9) 

NLOCA  =  (  LNCD9—  1  )  -*NDCJFN 
I DOF  N=3 

DO  120  IDOFN  =1,3 
NGASH  =NLCC  A*  I  DOF.  i 
0  IFF  I  X  (  NGASH  >  =—  1 

.  0  CONTINUE 

RETURN 
END 


SUBROUTINE  I NPUT 

SUBROUTINE  INPUT (ANVEL, COORD, OR AVI, IFFIX.LNODS, 

MA  rNQ, MFRON.  MELEM, MMATS, MPOIN, 

MTOTV, MVF IX, NDFRO.  NDOFN,  NELEM,  NCOLA, 

NEVAB, NGAUS. NQAUZ , NMATS, NNODE, MLAYR, 

NOFIX,  NPOIN.  NPROP,  NTOTG,  NLAYR,  NREST , 

NTOTV,  NVF I  X .  POSGP,  PRESC , PROPS.  WEIGP, 

NALOO. NINCS. LARGE) 

*•**-*  4-3  ■»  ■*-*  *  •**#■*  *•»*■«•■»  **■»•■»  *•*•*■*•#■ 

THIS  SUBROUTINE  ACCEPTS  MOST  OF  THE  INPUT  DATA 

•*  -A-#  -*■  >  i-<  ■*  -5  *  -4  -i  -4  *  i* c; -a- -Hr# 

D I MEN  S I ON  CO OR D  f MFO I N. 3 ) ,  I FFI X  < MTOTV ) , LNODS ( MELEM, 9 ) , 

MATNOf MELEM, MLAYR '  ,  NDFRO < MELEM )  ,  GRAVI (3), 

NOF  I  X  ( MVF  IX),  FOSGP  <  5 ) ,  PRESC  (MVF  IX,  NDOFN), 

PROPS (MMATS, MPRQP > , T I TLE ( 12) , WEIGP ( 5) 

READ (15, 920 ,  TITLE 
WRITE (6. 920)  TITLE 
>20  FORMAT  (  12A6  ) 

READ  THE  FIRST  DATA  CARD.  AND  ECHO  IT  IMMEDIATELY 


5 


I 

>0 

I 


l 

?13 


READ (  15,  9 CO)  NP01N, NELEM, NVF1X, NNODE,  NMATS, NGAUS, NGAUZ,  NCOLA, 

NALGO,  NINCS.  NLAYR.  LARGE,  NREST 
FORMA"" (  1615,  / 5 X ,  1515) 

WRITE (5. 900)  NPOIN.  NELEM,  NVF IX.  NNODE,  NMATS,  NGAUS,  NGAUZ, NCOLA, 

NALGO. NINCS.  NLAYR, LARGE, NREST 
NEVAB  =  NDOFN*NNODE 
NTOTV  *  NPOIN*NDOFN 
NGAU2  =  NGAUS*NGAUS 
NTOTG  =  NELEM *NGAU2 *NLAYR 

WRI TE(5,  *)  'NEVAB,  NDOFN,  NNODE,  NPOIN,  NGAUS,  NAGU2,  NLAYR,  NTOTV' 

WRI TE ( 5. *> NEVAB,  NDOFN,  NNODE,  NPOIN,  NGAUS,  NGAU2,  NLAYR, NTOTV 
WRITE (6, 901)  NPOIN.  NELEM.  NVF I  X ,  NNODE, NMATS, NGAUS,  NGAUZ. NEVAB, 
NCOLA,  NALGO,  NINCS, NLAYR, LARGE,  NREST 

FORMA  T  (  /  /  /  ,  5X ,  GH  NPOIN  =,  IS,  /5X.8H  NELEM  =,  IS/SX.8H  NVFIX  =,  IS,  / 
/SX,8H  NNODE  =,  IS/SX,  8H  NMATS  =  ,  I5/SX,8H  NGAUS  =,  IS/ 

SX ,  8H  NGAUZ  =,  IS/SX,  8H  NEVAB  =,  IS/SX,  8H  NCOLA  =,  IS/SX, 

8H  NALGO  =,  I3/5X,  8H  NINCS  =,  15,  /, 

3X.8H  NLAYR  =,  IS/SX,  8H  LARGE  =  ,  IS/SX, 8H  NREST  =,  IS) 

WRITE (6, 912) 

READ (  15, 913)  GRAVI ( 1 ), GRAVI (2),  GRAVI (3),  ANVEL 
WRITE (6, 913)  GRAVI ( 1 ), GRAVI (2) , GRAVI (3), ANVEL 

FORMAT ( //41H  X-GRAVITY  Y-GRAVITY  Z-GRAVITY  ANG  VEL  /) 

FORMAT  ( 4F10.  5> 
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CALL  CHECK 1 (NDOFN,  NELEM,  NGAUS.  NMATS,  NNODE,  NPOIN, 

NMATS, NVFIX, NGAUZ, NLAYR > 

READ  THE  ELEMENT  NODAL  CONNECTIONS,  AND  THE  PROPERTY  NUMBERS 


WRITE  (6,  902) 

-  2  FORMAT  < //8H  ELEMENT,  5X,  1 5H  PROPERTY/LAYER, 35X,  12HN0DE  NUMBERS) 

DO  2  IELEM  = 1 , NELEM 

READ ( 15, 999)  NUMEL,  < MATNO ( NUMEL, ILAYR), ILAYR=1 , NLAYR) 

READ ( 15, 999)  ( LNODS ( NUMEL, INODE), IN0DE=1, NNODE ) 

WRITE (6, 903)  NUMEL, (MATNO (NUMEL, ILAYR), ILAYR=1 , NLAYR ) 

:  WRITE ( 5, 903)  NUMEL,  ( MATNO ( NUMEL,  ILAYR ),  I LAYR  =  1 ,  NLAYR ) 

WRITEC6,  9401  )  (  LNODS  ( NUMEL,  I  NODE  ),  INODE=  1 ,  NNODE  ) 

:  WRITE (5, 9401 )  ( LNODS ( NUMEL, INODE ), IN0DE=1 , NNODE ) 

’03  FORMAT(  IX,  15,  4X,  1015) 

■  01  F  ORMAT (1215) 

>  9  FORMAT  (  1  115) 

:  ZERO  ALL  THE  NODAL  COORDINATES,  PRIOR  TO  READING  SOME  OF  THEM 

DO  4  IPO IN  =1, NPOIN 
DO  4  IDIME  =1,  8 

1  COORD<  IPOIN,  IDIME)  =  0.0 

:  DIO  READ  SOME  NODAL  CO-ORDINATES, FINISHING  WITH  LAST  NODE  OF  ALL 

WRITE (6- 904) 

?04  FORMAT  (  //  5H  NODE,  SX,  1HX,  14X,  1HY,  14X,  1HZ,  13X,5HPRESS) 

:  READ (15, 905)  I FG I N, ( COORD ( IPO IN, IDIME ) , IDIME=1 , S ) 

:  WRITE(5,  905)  1 PO I N,  ( COORD ( IPO  IN,  I D IME ) ,  IDIME=1 , 8 ) 

7oS  FORMAT  <  15,  4F15.  10/5X,  4F15.  10) 

IF(  IPOIN.  NE.  NPOIN)  GO  TO  6 

:  INTERPOLATE  CO-ORDINATES  OF  MID-SIDE  NODES 

CALL  NODEX (COORD,  LNODS,  MELEM.  MPO IN,  NELEM,  NNODE) 

DO  10  IPOIN  =  1. NPOIN 

i  A  WRI TE<6,  906)  I PQ IN,  ( COORD ( IPO IN,  IDIME ) ,  I D IME=1 , 8 ) 

WRI TE< 5, 906)  IPOIN, ( COORD ( IPOIN, IDIME ), I DIME=1 , 8 ) 

7  6  FORMAT  (  15,  4F 1  5.  10/5X,4F15.  10) 


READ  THE  FIXED  VALUES 


WRITE (6, 907) 

’-7  FORMAT  < //5H  NODE,  6X,  4HC0DE,  15X,  12HFIXED  VALUES) 

DO  8  I VF  I  X  =  1 ,  NVF I  X. 

READ (  15, 908) NOP  I  X  f IVFI X ) ,  IFPRE,  (PRESC ( IVFIX,  IDOFN) ,  ID0FN=1, NDOFN ) 
WRITE  (6»,  903)  NQF  1  X.  (  IVFIX  ) ,  IFPRE,  (  PRESC  (  IVFI  X,  I DOFN ) ,  I  D0FN=1 ,  NDOFN ) 
NLOC  A  =  <  NOF I  X  •  I  VF  I  X  )  -  1  )  ->MDOFN 
IFDOF  =1 0**< NDOFN- 1 ) 

DO  8  IDOFN  =1, NDOFN 
NGASH  =  NLOC  A-+ IDOFN 
IF( IFPRE  LT  IFDOF ) GO  TO  8 
IFF I  X  ( NGASH)  =  1 
IFPRE  =  IFPRE  -  IFDOF 
3  IFDOF  *  IFDOF/ 10 

?  S  FORMAT<  IX,  14,  5X,  15,  5X,  5F10.  6) 

:  READ  THE  AVAILAELE  SELECTION  OF  ELEMENT  PROPERTIES 


7  0 


102 
0 

:i8 


1 


:9ii 


WRITE (6, 910) 

FORMAT (//6H  NUMAT,  10X,  18HELEMENT  PROPERTIES) 

DO  18  IMATS  =1, NMATS 
READ ( 15, 9002)  NUMAT 
FOR  MAT ( 15) 

READ ( 15, 930)  ( PROPS ( NUMAT, IPROP), IPR0P=1 , NPROP > 

FORMAT ( 7F10  5/7F10.  5/3F10.  5) 

WR I TE (6,911 ) NUMAT,  ( PROPS ( NUMAT,  IPROP),  IPR0P=1, NPROP) 

WRITEO,  .  NUMAT,  PROPS . ' 

WR I TE  <  6 , 9002  >  NUMAT 

WRI TE(6, 9003) <PROPS(NUMAT,  IPROP ),  IPROP-1,  7) 

WRI TE<6, 9003) (PROPS(NUMAT,  IPROP ) ,  IPR0P=8,  14) 

WR I TE (6, 9004) (PROPStNUMAT,  IPROP),  IPR0P=15,  17) 

FOR  MAT ( 7E12.  5) 

FOR  MAT  ( 3E1 5.  5) 

WRI  TEO,  *)NUMAT,  ( PROPS  ( NUMAT,  IPROP),  IPR0P*1 ,  NPROP  ) 
FORMAT (IX,  14,  3X,  7E15.  5/,  8X,  7E15.  5/,  SX,  3E15.  5) 
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SET  UP  THE  GAUSSIAN  INTEGRATION  CONSTANTS 
CALL  GAUSSQ(NGAUS,  POSGP,  WEIGP ) 

CALL  CHECK2C  COORD,  IFFIX,  LNODS.  MATNO,  MELEM,  MFRQN,  MPOIN,  MTOTV, 

MVFIX, NDFRO, NDQFN,  NELEM,  NMATS,  NNQDE,  NOFIX.  NPOIN. 

NVF I  X , NLAYR ) 

RETURN 

END 

SUBROUTINE  INVAR 

SUBROUTINE  INVAR (A, ST, LPROP, MMATS, YIELD) 

THIS  SUBROUTINE  EVALUATES  THE  CURRENT  VALUE  OF  THE  YIELD  FUNCTION 
****->*->***  ******4** 

DIMENSION  ST(5> ,  A(9, MMATS) 

L=LPR  OP 

GASH  =  A(l.L)*ST(l)+2.  0*A<2,L)*ST(l>+2.  0*A(3,L)*ST<1>*ST(3>  + 

A (4, L)*ST(2)*ST(2)+2.  0*A(5,  L > *ST ( 2 ) *ST ( 3 ) +A ( 6,  L ) *ST(3)*ST(3> 
+A(7,  L  )  -*ST  (4)*ST(4)+A(8,  L )  *ST  (  4  >  *ST  (  3 )  +A  ( 9,  L)*ST(3)*ST(3> 
YIELD  =  SORT (GASH) 

RETURN 

END 


SUBROUTINE  LDISP 

SUBROUTINE  LDISP (BMATX, GNAT X ,  ETDIS, NEVAB ) 

■*  ->  ■»  *-3  -■*  **•>  -» ->-*->  *  *  ■*•*•?*■  #  •*-*  -a-  •»-*->■*•*■**  4  ***  **•*•*  **•-#* -a-*  ■*■**■#  -»«#«**** 

THIS  SUBROUTINE  EVALUATES  THE  INITIAL  DISPLACEMENT  MATRIX  -BLARG- 
AND  ADDS  IT  UP  TO  BMATX 

*-»*•*  *m#m*  ■***•»*******■»*•*■**■*■*■«■•»•■*••#■#■•* 

DIMENSION  EM ATX (5, 45 ) , GMATX (2, 45 ) , ETDIS ( 45 ) , ADUMM (3, 2 ) .  ) 

BLARG ( 3, 45) 

CALCULATE  THE  ACTUAL  -X-  AND  -Y-  DERIVATIVES  OF  -W-  DISPLACEMENT 
DWDXX  =  0. 0 
DWDYY  =  0.  0 
DO  10  IEVAE  =1, NEVAB 

DWDXX  =  DWDXX+GMATX( 1,  IEVAB ) *ETD I S ( IEVAB) 

DWDYY  =  DWDYY+GMATX  (2,  IEVAB  >*ETDIS(  IEVAB) 

SET  UP  THE  -ADUMM-  MATRIX 
ADUMM  (1,1)  =  DWDXX 
ADUMM  (1,2)  =  G  O 
ADUMM  (2.  1  )  =  0.0 
ADUMM (2, 2)  =  DWDYY 
ADUMM (3, 1 >  =  DWDYY 
ADUMM (3, 2)  =  DWDXX 
NOW  CALCULATE  THE  -BLARG-  MATRIX 
DO  20  IEVAB  =1, NEVAB 
DO  20  1  =  1,3 
BLARG  (I,  IEVAB  )  =  0.  0 
DO  20  J=l,  2 

BLARG ( I, IEVAB ) =  BLARG ( I, IEVAB ) +ADUMM < I, J)*GMATX(J, IEVAB) 

THE  NEW  -BMATX-  IS  EQUAL  TO  -BMATX+BLARG 
DO  30  IEVAB  =1, NEVAB 
DO  30  1=1, 3 

BMATX ( I,  IEVAB )  =  3MATX ( I ,  IEVAB ) +BLARG ( I ,  IEVAB ) 

RETUR  N 
END 


SUBROUTINE  LOADS 

SUBROUTINE  LOADS ( ANVEL,  COORD,  ELOAD, GRAVI, LNODS, 

MATNO,  MELEM,  MEVAB, MMATS, MPOIN, DICQS, 

NELEM, NEVAB, NGAUS, THICK, 

NNODE,  NPROP , NSTRE, POSGP, M3P0I, 

PROPS, WEIGP, MLAYR, NLAYR ) 

**•»*■***-»**•»»**«**************##■***#•****#■****#**#■*****#•*#***# 
THIS  SUBROUTINE  EVALUATES  THE  NODAL  FORCES  DUE  TO  EXTERNAL 
APPLIED  LOADS (CENTRIFUGAL,  GRAVITY,  PRESSURE  AND  POINT  LOADS) 

****  *********** a******************************************** 


COMMON  W0RMX(3,  24),  QVALU,  DJACB 
DIMENSION  BMATX  (  5,  45),  C00RD(MP0IN,  8), 

ELOAD ( MELEM, MEVAB),  GRAVI (3) , LNODSIMELEM,  9) , 
MATNO (MELEM, MLAYR),  POSGP (5),  DIC0S<3,  M3P0I ), 
PROPS (MMATS,  NPROP),  SHAPE (3,  9),  STREN( 5 / , 
THICK(MPOIN) , WEIGP  <  5  > , GMATX (2, 43) 
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LOOP  OVER  EACH  ELEMENT 
DO  150  IELEM  =  1 ,  NELEM 

READ  THE  CHARECTER ISTICS  OF  THE  APPLIED  LOADS 

WRITE (60.*)  'ELEMENT  =',  IELEM 

READ (15. 900)  NPRES, NUCLO,  NBODY 
WRITE (60, 901 )  NPRES, NUCLO, NBODY 
WRITE (6, 901)  NPRES, NUCLO, NBODY 
FORMAT (51 5) 

FORMAT ( OH  NPRES  =  ,  15,  5X,  8H  NUCLO  =,  SX,  8H  NBODY  =,  15) 

IF  (NPRES.  Ed.  O)  GO  TO  3 
READ(  15, 902)  KPRES,  CFACE,  PREVA,  SURFA 
WRITE (6, 902)  KPRES, CFACE, PREVA, SURFA 
FORMAT  (  15,  F5.  1, 2F15  3) 

CFACE  IS  +1.0  OR  -1.0,  ACCORDING  AS  PRESSURE  IS  ON  TOP  OR 
BOTTOM  SURFACE 

CONT INUE 

INITIALIZE  THE  LOAD  MATRIX  ELOAD  ONE  COLUMN  AT  EACH  TIME 

DO  4  1EVAB  =1 , NEVAB 
ELOAD  (  IELEM,  IEVAB  )  =0.0 

ENTER  THE  LOOPS  OVER  GAUSS  POINTS  FOR  NUMERICAL  INTEGRATION 

DO  145  IGAUS  =1 , NGAUS 
DO  14  5  JGAUS  =1,  NGAUS 
EXISP  =  PGSGP( IGAUS) 

ETASP  =  POSGP( JGAUS) 

WRITE (60,*) 'EXISP, ETASP, PQSGF ( I GAUS ) , POSGP ( JGAUS) ' 

WRI TE(60, *)EXISP,  ETASP,  POSGP ( IGAUS ) ,  POSGP (JGAUS) 

CALL  SFR1( SHAPE,  EXISP,  ETASP) 

IF  (  NB  ODY.  EG.  O  )  GO  TO  141 
ZETSP  =-1.0 
DO  140  ILAYR  =1 , NLAYR 
LPROP  =  MATNO( IELEM,  ILAYR ) 

DZETA  =  PRCPS(LPRQP,  3) 

ZETSP  =  ZETSP  +  DZETA/2.  O 
READ ( 8 )  BMATX,  GMATX,  DVOLU 

CALCULATE  THE  CENTR IFUGAL, GRAVITATIONAL  PRESSURE  AND  POINT  LOADS 

CENTRIFUGAL  FORCE 
IF(ANVEL.  EG  O  0)  GO  TO  70 
NPROP  =  2 

CALL  FUNC (BMATX,  SHAPE,  THICK, NBORP, NNQDE,  ZETSP,  MELEM, COORD, DICOS, 
LNODS, IELEM, MPOIN, M3P0I, GMATX ) 

GASH  =  PROPS (LPROP,  4) *ANVEL*ANVEL*DVOLU 
DO  45  13=1,2 

STREN(IS)  =  GASH*WORMX( IS,  1 ) 

CONTINUE 
STREN ( 3 )  =00 
DO  65  INODE  =  1 , NNODE 

FIND  THE  POSITION  OF  THE  V-l  AND  V-2  VECTORS 
IPOIN  =  IABS(LNODS( IELEM,  INODE) ) 

JPOSI  =  ( IPO I N— 1 ) *3 
DO  65  ISTRE  =1, NSTRE 
IEVAB  =  ( INODE- 1 ) *5+ ISTRE 
IF(  ISTRE.  GT  3)  GO  TO  50 

ELOAD (IELEM,  IEVAB ) =ELOAD ( IELEM,  IEVAB )+STREN( ISTRE ) *SHAPE (1 ,  INODE) 
GO  TO  65 

JPOSI  =  JPOSI  +1 

GASH  =  SHAPE(1,  INODE )*( THICK ( IPOIN ) /2.  0>*ZETSP 
IF(  ISTRE.  NE .5)  GO  TO  55 
GASH  =  -GASH 
DO  60  ILL=1,2 

ELO AD ( IELEM,  IEVAB )  =  ELOAD < IELEM, IEVAB )+STREN( ILL)* 

DICOS( ILL,  JPOSI ) *GASH 

CONTINUE 

CONTINUE 


GRAV I TV 

GASH  =  PROPS CLPROP,  4 > *DVOLU 
DO  75  IMM=1.  3 

STREN(IMM)  =  GRAVI ( IMM)*GASH 
DO  95  INQDE=1,  NNODE 
IPO IN  =  IABS(LNODS( IELEM,  INODE) ) 

JPOSI=(  IPOIN-1  >-*3 
DO  95  ISTRE  =  1,NSTRE 
I EVAS  =  ( INODE-1 )*5+ISTRE 
IF<  ISTRE  GT.  3)  GO  TO  30 

ELOAD  (IELEM,  IEVAB > -ELOAD ( IELEM,  IEVAB ) +STREN ( ISTRE > * 

SHAPE ( 1, INODE) 

GO  TO  95 

JPOSI  =  wFOSI+1 

GASH  =  SHAPE  ( 1 ,  INODE  >  * ( THICK ( IP0IN)/2.  0 ) *ZETSP 
IF  (ISTRE.  NE.  5)  GO  TO  85 
GASH  =  -GASH 
DO  90  IKK«1,3 

ELOAD < IELEM,  IEVAB ) =ELOAD ( IELEM,  IEVAB ) +STREN ( IKK ) * 

DICOS( IKK, JPOSI )*GASH 

CONTINUE 

ZETSP  =  ZETSP  +  DZETA/2.  O 
CONTINUE 

CALCULATE  THE  NODAL  LOADS  DUE  TO  PRESSURE 
IF (NPRES  EG.  O)  GO  TO  142 

CALL  PRES ( EMATX ,  COORD,  ELOAD,  LNODS,  POSGP,  SHAPE,  THICK, 

WEIGP,  IELEM,  IGAUS,  JGAUS, MELEM, MPOIN,  NNODE, 

NEVA3,  KPRES, CFACE,  PREVA, SURFA, DICOS, M3P0I ) 

CONTINUE 

CONTINUE 

POINT  LOADS 

IF(NUCLO  EQ.  O)  GO  TO  150 

IS  THE  PRESENT  ELEMENT  A  LOADED  ELEMENT.  IF  IT  IS 
READ  AND  ACCUMULATE  THE  LOADS  IN  ELOAD 
WR I TE ( 60, * ) 'NUCLOa ' , NUCLO 
DO  120  IGASP=1,  NUCLO 
READ! 15- 950)  LPOIN, LDOFN, CARGA 
WRITE (60, 960 ) LPQ IN,  LDOFN,  CARGA 
WRITE (6,  960) LPOIN,  LDOFN, CARGA 

WRI TE(5- *) 'HERE  ARE  SOME  VALUES  READ' 

WR I TE ( 5 ,  960JLP0IN,  LDOFN,  CARGA 
IEVAB  =  (  LPOIN- 1  ) -a-5+LDQFN 

WR  I  TE  (  60,  *  )  'IEVAB,  LDOFN',  IEVAB,  LDOFN 
ELOAD (IELEM,  IEVAB ) =ELOAD ( I ELEM,  IEVAB )+CARGA 
WR  I  TEC  60,  *>  'ELOAD.  .  .  .  ELOAD  (  IELEM,  IEVAB) 

CONTINUE 

WR  I  TE  (  60,  *  )  'ELOAD',  (  (  ELOAD  <  I,  J),  J=l,  IEVAB),  1*1.  NELEM) 
FORMAT  (  215,  F10  5) 

FORMAT ( //8H  LPOIN  *,  15,  QH  LDOFN  =,  I5.7H  LOAD  =, F16. 8/) 
RETURN 
END 

SUBROUTINE  MATM 
SUBROUTINE  MATM (N1 , N2, N3, NOPN) 

*-#••**  ***»jHHHHt*^HHHHHt*#*»*#*****####*##***#**#***#**###*** 

MATRIX  MANIPULATIONS 

NOPN  *  1,  TRANSPOSE- INVERT  N1  INTO  N2,  DJACB  *  1/GVALU 

NOPN  *  2,  TRANSPOSE -MULT.  ,  A  ( K,  I  )  *B  ( K,  J )  *  CCI.J) 

( I.  E.  A  IS  TRANSPOSED) 

NOPN  =  3,  TRUE  MULTIPLY,  A  (  I ,  K  )  *B  C  K,  J  )  *  C(I,J> 

NOPN  =  4,  MATRIX  ( TRANSPOSED ) *VECTOR 
NOPN  =  5,  TRANSPOSE  MATRIX  N1  INTO  N2 

NOPN  =  6,  NORMALIZE  N1  INTO  N2,  IN  COLUMNS 

NOPN  =  7,  N 1  AND  N2  OPEN  SC ISSORS-FAXHION  TO  BE  ORTHOGONAL 
NOPN  a  8,  TRANSFER  MATRIX  N1  INTO  N2 
NOPN  *  9,  MATRIX  N1*VECT0R  N2  *  VECTOR  N3 

#**»#*»**#HHHHHH»i>»«*#**####»#*****#*»**#**##***#*##»**#### 

COMMON  WORMX ( 3,  24 ) ,  QVALU,  DJACOB 

WRITEO,*)' . E  NTER  INGMATM' 

WRI  TEC  3,  *)'.  .  .  NOPN  IN  MATM NOPN 
FOR  MAT  (  / IX,  3E1 4.  7) 

GO  TO  C 1,  2,3,  4,  5,  6,  7,  8,  9),  NOPN 
K  =  2 
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DO  10  I  =1,3 
J  =  4  -  I  -K 
Ml  *  Nl  +  J 

M2  =  N1  +  K 

M3  =  N2  +  I  -1 

M4  =  Nl  +  I  -1 

WRI TE! 5, *> 'QVALU  IN  MATM  FIRST  BEFORE  CALLING  VECT', GVALU 
WRITE<5,  *>  '++++++I,  J,  K,  Ml,  M2,  M3,  M4++++ ' ,  I,  J,  K,  Ml,  M2,  M3,  M4 
CALL  VECTCMl,  M2,  M3,  4) 

WRITE!  5,  *)  'QVALUE  ONCE',  QVALU 
CALL  VECTCM4,  M3.  0,  1  ) 

WRITE  (5,  -*>  'QVALU  NEXT  ' ,  GVALU 

WR I  TE C  5,  ■»)  'QVALU  IN  MATM  AFTER  CALLING  VECT' 

WRITE!  5,  *>'!!!!!!!!  ! QVQLU !  !  !  !  ',  GVALU 
IF  ! QVALU.  NE.  0.  0)  GO  TO  22 
WRITE  ! 6,  21  ) 

FORMAT! 17H  ZERO  DETERMINANT) 

STOP 

EXECUTION  IS  TERMINATED  WHEN  THE  DETERMINANT  IS  ZERO 
GVALU  =  1.  O/GVALU 
CALL  VECT(M3,  M3,  0,  3) 

K  =  I  -1 
RETURN 
DO  11  I  =1,  3 
N1  =  N1  +  I  —1 

DO  11  J  =1,3 

M2  =  N2  +  J  -1 

M3  =  N3  +  J  -1 

CALL  VECT!M1,  M2,  O,  1  ) 

WORMX!  I,  M3)  =  QVALU 
RETURN 

DO  13  I  =  1,3 
DO  13  K  =  1,  3 
M2  =  N2  +  'A  —1 
M3  =  N3  -+-  K.  - 1 
GASH  =0.0 
DO  12  L  =1,3 
Ml  =  N1  +  L  -1 

GASH  =  GASH  +  WORMX ! I ,  Ml ) *WORMX ! L,  M2 ) 

WORMX!  I,  M3)  =  GASH 
RETUR  N 

DO  14  I  =1,3 
Ml  =  N1 +1—1 
CALL  VECTCMl,  N2,  O,  1  ) 

WORMXC  I,  N3>  =  QVALU 
RETURN 
DO  15  I  =1,3 
Nil  =  N1  +  I  — 1 

N2I  =  N2  +  I  -1 

DO  15  J  =1,3 

N1J  =  N1  +  J  — 1 

N2J  =  N2  +  J  -1 

GASH  =  WORMX !U,  Nil ) 

WQR  MX ! J, N2I )  =  WORMX ! I ,  N1 J ) 

WORMX  !  J,  N2 J >  =  GASH 
RETURN 
DO  16  1  =  1,3 

11  =  N1  +  I  -1 

12  =  N2  +  I  -1 

CALL  VECT!  II,  12,  0,  2) 

RETURN 

CALL  SINGQP !N1 ,  2 ) 

CALL  SING0PCN2,  2) 

CALL  VECT  ( N1 ,  N2,  0,  1  ) 

GASH  =  -QVALU/ ! 1 .  O+SQRT ! 1 .  0-GVALU*QVALU ) ) 

DO  17  I  =1,3 
GISH  =  WORMX ( I,  N1 > 

GOSH  =  WORMX ! I ,  N2 ) 

WORMX! I, Nl)  =  GISH+GASH*GOSH 
WORMX! I, N2)  =  GOSH  +  GASH*GISH 
RETURN 
DO  IS  J  =1,  3 
N 1 J  =  Nl+J-1 
N2J  =  N2  +J  -1 
DO  18  I  =1,3 
WOR  MX ! I , N2J )  = 


WORMX! I,  Nl J) 
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RETURN 
DO  20  I  =  1,  3 
GASH  =  0.  0 
DO  19  J=l,  3 
N1J  =  N1  +  J  -1 

GASH  =  GASH  +  WORMX ( I ,  N1 J ) *WORMX ( J, N2 ) 
WQRMXC  I,  N3  >  =  GASH 
RETURN 
END 


SUBROUTINE  MQDAN 

SUBROUTINE  MOD AN ( AM ATX ,  DMATT , NMATS. NPROP,  PROPS/ MMATS. 

MATNOi MELEM, MLAYR; NELEM, NLAYR ) 

* *  ■#■*■*#*•■#■****■*  *  *  ****•»***•»•»*■»■»•»•■»■»*  *•**•»**■***•** 

CACLULATES  THE  MATRIX  OF  ELASTICITY  -D-  AND  THE  MATRIX  OF 
ANISOTROPIC  PARAMETERS  —AM ATX—  FOR  EACH  MATERIAL 
■#■■*•**  a**************************************************** 

DIMENSION  AMATXC9.  MMATS).  DMATT ( 5.  5. MMATS), PROPS<MMATS, NPROP ) , 
APARA(5,  5).  TRANS  (5.  3),  GASHMC3,  5).  MATNO(  MELEM.  MLAYR), 
COEFE (2) 

DO  15  I MATS  =  1,  NMATS 


SETS  UP  THE  MATRIX  OF  THE  ANISOTROPIC  PARAMETERS 
UNI AX  =  PROPS ( IMATS,  6) 

DO  5  1=1, 9 
AMATX (  I,  IMATS)  =0.0 
AMATX (1, IMATS)  =1.0 

WR I  TE  (  5 1  *>  ' . PROPS  (  IMATS,  12)= . ',  PROPS  (  IMATS,  12) 

AMATX <4,  IMATS)  =  ( UNI AX/PROPS ( IMATS,  12 )) **2.  0 

A3Z  =  C  UNI  AX /PROPS  (  IMATS,  13)  >*"*2.  0 

AMATX  (6,  IMATS)  =  < UN I AX /PROPS < IMATS,  1 4 )  > **2.  O 

AMATX (2,  IMATS)  =  2.  0*A3Z-0.  5* < 1 .  0+AMATX(4,  IMATS ) +AMATX ( 6,  IMATS)) 
AMATX  (7,  IMATS)  =  ( UN I AX /PROPS ( IMATS,  1 5 ) ) **2.  0 
AMATX  (9,  IMATS)  =  ( UN I AX /PROPS ( IMATS,  16)  )**2.  O 


SETS  UP  THE  ELASTICITY  MATRIX  -D- 
GASH  =  1.0-  PROPS! IMATS, 2)**2.  0*PR0PS( IMATS, 8) /PROPS( IMATS,  1 ) 
DO  10  I  =1 
DO  10  J=l, 

DMATT  C  I, 


DMATT  (1,1, 
DMATT  (2,  2, 
DMATT  (1,2, 
DMATT  (2,  1, 
DMATT (3, 3, 
DMATT  (4,  4, 
DMATT  (5.  5, 
CONTINUE 


5 

J,  IMATS)  =0.0 

IMATS)  =  PROPS ( IMATS, 1 ) /GASH 
IMATS)  =  PROPS ( IMATS. 8 ) /GASH 
IMATS)  =  PROPS ( IMATS, 2 ) * DMATT (2,2, 
IMATS)  =  DMATT ( 1, 2,  IMATS) 

IMATS)  =  PROPS ( IMATS, 9) 

IMATS)  =  PROPS! IMATS, 10) 

IMATS)  =  PROPS! IMATS,  1 1 ) 


IMATS) 


CALCULATE  THE  SHEAR  CORRECTION  FACTOR 

IF  (NMATS.  NE.  1  )  GO  TO  25 
DO  20  I  =1,2 
COEFE  (  I  )  =  5.  0/6.  O 
GO  TO  27 

DO  26  IELEM  =1, NELEM 
KOUNT  =0 

DO  26  ILAYR  =2, NLAYR 

IF(MATNO(  IELEM,  ILAYR  ).  EQ.  MATNO(  IELEM,  ILAYR-1MG0  TO  26 
KOUNT  =  KOUNT  ■*  1 
CONTINUE 

IF(KOUNT.  EQ.  0)  GO  TO  19 

CALL  SHEARC ( MATNO,  MELEM,  MLAYR,  PROPS,  MMATS,  NPROP, 

COEFE, NLAYR, DMATT) 

DO  28  IMATS  =  1,  NMATS 

DMATT (4, 4, IMATS)  =  DMATT ( 4, 4, IMATS ) *COEFE ( 1 ) 

DMATT  (5,  5,  IMATS)  =  DMATT  (  5,  5,  IMATS  )  *COEFE  ( 2 ) 

WRITE (6. 900)  (CQEFE( I >, 1=1, 2) 

FORMAT (  /  '  COEFE  ( 1  )  =  ' ,  El 5.  4,  5X,  'COEFE (2 )  =  ' ,  El 5.  8/  ) 

DO  80  IMATS  =  1, NMATS 

IF  THE  REFERENTIAL  SYSTEM  OF  AXES  COINCIDES  WITH  THE 
PRINCIPAL  AXES  OF  MATERIAL  -  GO  TO  80 

THETA  =  PROPS! IMATS,  17) 

IF  (ABS(  THETA )  .  LT.  0.  001  )  GO  TO  80 
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SETS  UP  Tt-E  TRANSFORMATION  MATRIX  -TRANS- 
DO  30  I  =1,5 
DO  30  J  =1, 5 

TRANS  (  I ,  J)  =  0.  0 
C  =  COS  (TI-ETA) 

S  =  SIN  (THETA) 

TRANS  (1,1)  =  C*C 
TRANS  (1,2)  =  S*S 
TRANS  (2,1)  =  TRANS  (1,2) 

TRANS (2, 2)  =  TRANS (1,1) 

TRANS  (1,3)  =  C*S 

TRANS (3,1)  =  -2.  0*TRANS( 1, 3) 

TRANS (2, 3)  =  —TRANS (1,3) 

TRANS (3, 2)  =  —TRANS (3,1) 

TRANS  (3,  3)  =  TRANS  (1,1)  -TRANS  (1,2) 

TRANS (4, 4)  =  C 
TRANS (4, 5)  =  S 
TRANS  (5-4)  =  -S 
TRANS  (5,  5)  =  C 

CALCULATE  THE  PRODUCT  OF  D  MATRIX  3Y  T  MATRIX 
DO  35  I  =1,5 
DO  35  J  =1, 5 
GASHM  (  I,  J)  =  0.0 
DO  35  K  =1,5 

GASHM  (  I ,  J)  =  GASHM (  I  <  U )  *■  DMATT ( I , K,  IMATS ) *  TRANS (K,  J) 

CALCULATED  THE  TRANSPOSED  D  MATRIX 
DO  40  I  =1,5 
DO  40  J  =1,5 
DMATT  (  I,  J,  IMATS)  =0.0 
DO  40  K  =1,  5 

DMATT(  I,  J,  IMATS)  =  DMATT  (  I ,  J,  IMATS )  +TRANSCK.,  I  >*GASHM(K,  J> 

DO  45  I  =1,5 
DO  45  J  =1,5 

DMATT(U,  I,  IMATS)  =  DMATT  (  I ,  J,  IMATS  ) 

SET  UP  THE  MATRIX  OF  THE  ANISOTROPIC  PARAMETERS  FOR  THE  MATRIAL 

DO  50  1=1,5 
DO  50  J  =1,5 

APA  RA  (  I,  J)  =  0.  O 
APARA  (1,1)  =  AMATX( 1,  IMATS) 

APARA (1,2)  =  AMATX(2. IMATS) 

APARA (2,1)  =  APARA (1,2) 

APARA (2,2)  =  AMATX(4, IMATS) 

APARA (3,3)  =  AMATX (6,  IMATS) 

AMATX (4,4)  =  AMATX(7, IMATS) 

AMATX (5,5)  =  AMATX (9, IMATS) 

SET  UP  THE  NEW  TRANSFORMATION  MATRIX 

TRANS (3, 1 )  =  -C*S 

TRANS  (2,  3)  =  2.  0*TRANS(3,  1  ) 

TRANS (3, 2)  =  —TRANS (3,1) 

TRANS  (1,3)  =  -TRANS  (2,  3  ) 

CALCULATE  THE  PRODUCT  OF  A  MATRIX  BY  T  MATRIX 
DO  55  I  =1,5 
DO  55  J  =1,5 
GASHM  (  I,  J)  =  0.0 
DO  55  K=l,  5 

GASHM ( I, J)  =  GASHM ( I ,  J ) +AP AR A (  I ,  K  > *TRANS ( K>  J ) 

CALCULATE  THE  NEW  ANISOTROPIC  PARAMETERS 
DO  60  I  =1,5 
DO  60  J  =1,5 
APARA  (  I,  J)  =  0.  0 
DO  60  K=l,  5 

APARA( I , J)  =  APARA ( I , J ) +TRANS <  K,  I ) *GASHM ( K»  J ) 

AMATX  ( 1,  IMATS)  =  APARA < 1,1) 

AMATX (2, IMATS)  =  APARA(1,2> 

AMATX  (3,  IMATS)  =  APARA(1,3) 

AMATX (4, IMATS)  =  APARA(2, 2) 

AMATX (5, IMATS)  =  APARA(2,3) 
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AMATX (6, IMATS)  =  APARA<3.3) 

AMATX (7,  I MATS)  =  APARA ( 4<  4  > 

AMATX  (8,  IMATS)  =  APARA <4,  5) 

AMATX (9, IMATS)  =  APARA(5.5) 

CONTINUE 

WR  I TE  (  5,  * )  ' . GETING  OUT  OF  SUB  MODAN 

RETURN 

END 


SUBROUTINE  NODES 

SUBROUTINE  NODEX (COORD,  LNODS,  MELEM,  MPOIN,  NELEM, NNODE) 

****  *■***■  •**-*•»*• -9-)H»--!HH*-**********-************************** 

THIS  SUBROUTINE  INTERPOLATES  THE  MID  SIDE  NODES  OF  STRAIGHT 
SIDES  OF  TH  ELEMENTS 

****  -a**-** *-**  *■*•*•»•■»•  #•*■■)»■**•*********•»• ***  ***************  ***** 

DIMENSION  COORD (MPOIN, 8), LNODS (MELEM,  9),  ELC0R(8, 8) 

LOOP  OVER  EACH  ELEMENT 
NNOD1  =  7 

DO  20  INODE  =  1 , NNQD 1 , 2 

COMPUTE  THE  NODE  NUMBER  OF  THE  FIRST  NODE 

NODST  =  LNODS ( IELEM,  INODE) 

I GASH  =  IN0DE*2 

IF(  IGASH.  GT.  8)  IGASH  =  1 

COMPUTE  THE  NODE  NUMBER  OF  THE  LAST  NODE 

NODFN  =  LNODS ( IELEM,  IGASH) 

MIDPT  =  INODE  +  1 

COMPUTE  THE  NODE  NUMBER  OF  THE  INTERMEDIATE  NODE 
NODMD  =  LNODS( IELEM,  MIDPT) 

TOTAL =ABS( COORD (NODMD,  1 ) > +ABS ( COORD (NODMD, 2) ) +ABS ( COORD ( NODMD, 3) ) ) ) 

IF  THE  COEFFICIENTS  OF  THE  INTERMEDIATE  NODE  ARE  ALL  ZERO 
INTERPOLATE  BY  A  STRAIGHT  LINE 
IF(  TOTAL.  GT.  O  O)  GO  TO  20 
KOUNT  =  1 

COORD (NODMD,  KOUNT)  =  ( COORD ( NODST,  KOUNT > +COORD ( NODFN, KOUNT) ) /2.  O 
KOUNT  =  KOUNT  -*-1 
IF(KOUNT.  LE.  8)  GO  TO  10 
CONTINUE 

IF  (NNODE  EG.  8)  GO  TO  60 

SET  UP  THE  CENTRAL  POINT  COORDINATES 
NODCE  =  LNODS ( IELEM,  9) 

DO  30  INODES  =1,8 

NODEB  =  LNODS ( IELEM,  INODE) 

DO  30  IDIME  =1,  8 

ELC OR ( I  DIME,  INODE)  =  COORD (NODEB,  IDIME) 

DO  50  IDIME  =  1,8 

GENCO  =0.0 

DO  35  INODE  =  l,  7,  2 

GENCO  =  GENCO  +  ELCOR ( IDIME, INODE) 

GENCO  =  GENCO* (-0.  5) 

DO  40  INODE  =2, 8,  2 

GENCO  =  GENCO  +ELCOR ( IDIME, INODE) 

GENCO  =  GENCO  *  0.  5 

COORD ( NODCE,  IDIME)  =  GENCO 
CONTINUE 
RETURN 
END 


SUBROUTINE  OUTPUT 

SUBROUTINE  OUTPUT ( I  ITER,  MTOTG,  MTOTV,  MVFIX,  NCHECK,  NELEM,  NGAUS, 

NOFIX,  NOUTP,  NPOIN,  NSTRE, 

NVFIX,  STRSG, TDISP, TREAC, EPSTN, POSGP, 

EFFST , MATNO, MMATS,  PROPS,  NPROP,  MELEM,  THICK, 
MPOIN, LNODS, MLAYR, NLAYR ) 

****  ***■»  ***************«*********#*******#**##******#**#*##* 
THIS  SUBROUTINE  OUTPUTS  DISPLACEMENTS,  REACTIONS  AND  STRESSES 
************************************************************** 
DIMENSION  NOFIX (MVFIX),  NOUTP (2),  STRSG (5,  MTOTG),  STRES(6>, 

TDISP (MTOTV ) , TREAC (MVFIX,  5 ) , EPSTN ( MTOTG ) , 
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POSGP ( 5  > ,  SHAPE (3,9),  EFFST ( MTOTG ) , 

THICK(MPOIN),  LNODS(MELEM, 9), 

FORCE ( S ) ,  MATNO ( MELEM, MLAYR ) , 

PROPS ( MMATS, NPROP ) 

KOUTP  =  NOUTP < 1 ) 

IF ( 1 1  TER.  GT.  1 )  KOUTP  =  N0UTP<2) 

IF<  1 1  TER  EG.  1.  AND.  NCHECK.  EQ.  O)  KOUTP  =  NOUTP  (2) 

OUTPUT  DISPLACEMENTS 
IF  (KOUTP  LT.  1  )  GO  TO  10 
WRITE (6. 900) 

FORMAT ( 1HQ<  5X,  13HDISPLACEMENTS ) 

WRITE (6, 905) 

FORMAT ( 1H0,  6X,  4HN0DE,  4X,  6HX-DISP,  8X,  6HY-DISP/  8Xi  6HZ-DISP, 
8X, 6HAF— ROT , SX,  6HBT-R0T) 

DO  20  IPOIN  =1, NPOIN 
NGASH  =  IPOIN* 5 
NGISH  =  NGASH  -  4 

WR I TE (6>  910 )  IPOIN,  (TDISP( IGASH).  IGASH  =  NGISH, NGASH) 
FORMAT (  110,  5E 14.  6) 

CONTINUE 

OUTPUT  REACTIONS 
IF  (KOUTP.  LT.  2)  GO  TO  30 
WRITE (6, 920) 

FORMAT ( 1H0,  5X, 9HREAC T I ONS ) 

WRITE (6, 925) 

FORMAT ( 1H0,  6X,  4HN0DE, 4X, 6HX-REAC,  8X,  6HY-REAC,  8X,  6HZ-REAC, 
8X, 6HAF— MOM, 8X,  6HBT-MQM ) 

DO  40  IVFIX  =  1 , NVFI X 

WR I TE (6, 910)  NOFIX ( IVFIX), ( TREAC ( IVFIX, IDOFN) , ID0FN=1, 3) 
CONTINUE 

OUTPUT  STRESSES 
IFCKOUTP  LT.  3)  GO  TO  120 
WRITE (6, 927) 

FORMAT ( 1H0,  5X, 8HSTRESSES ) 

WRITE (6, 926) 

FORMAT ( 1 HO, IX,  5HKLAYR,  5X, 6HXX-STR, 8X, 6HYY-STR.  8X,  6HXY-STR, 
8X,  6HX.Z— STR ,  8X,  6HYZ-STR,  6X,  10HEFF-STRESS,  3X, 

131-EFF.  FL.  STRAIN) 

KGAUS  =  0 

DO  110  IELEJ1  =  1 ,  NELEM 

KELGS  =  O 

WRITE (6, 940) IELEM 

FOR  MAT  (  1H0,  18H  ELEMENT  NO.  ,  =  ,  15,  /> 

DO  105  IGAUS  =1 ,  NGAUS 
DO  105  JGAUS  =1, NGAUS 
EX  ISP  =  POSGP (IGAUS) 

ETASP  =  POSGP (JGAUS) 

SET  TO  ZERO  THE  STRESS  RESULTANT  VECTOR 
DO  70  JFORC  =  1,8 
FOR  CE  (  JFORC  )  =  0.  0 
KGASP  =  O 
KELGS  =  KELGS  +  1 
WRITE (6, 945) KELGS 

FORMAT (  11H  G.  P.  NO.  =,  15) 

CALL  SFR1 (SHAPE,  EX  ISP,  ETASP) 

COMPUTE  GAUSS  POINT  THICKNESS 

THIGP  =  0.  0 

DO  63  INODE  =  1,8 

IPOIN  =  IABS(LNODS( IELEM,  INODE) ) 

THIGP  =  THIGP+SHAP£( 1 ,  INODE  >  *THICK( IPOIN) 

ZETSP  *  -1.0 

DO  100  ILAYR  =1 , NLAYR 

LPROP  =  MATMO( IELEM, ILAYR) 

DZETA  =  PROPS (LPROP, 3) 

ZETSP  *  ZETSP+DZETA/2.  0 
KGAUS  *  KGAUS  +  1 
KGASP  =  KGASP  -*•  1 

THE  FIVE  LOCAL  STRESSES  IN  THE  ORDER  XX, YY, XY, XZ, YZ 
DO  30  ISTRE  =1 , NSTRE 
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STRES ( ISTRE )  =  STRSG( ISTRE#  KGAUS) 

WRITE (6. 950)  KGASP,  ( STRES ( ISTRE ),  ISTRE=1 ,  NSTRE ) , 

EFFST ( KGAUS ) ,  EPSTN ( KGAUS ) 

SET  UP  THE  STRESS  RESULTANTS  IN  THE  ORDER  NX,  NY,  NXY,  MX,  MY,  QX, GY 
DO  75  ISTRE  =1,3 

FORCE (ISTRE)  =  FORCE C ISTRE ) +STRES ( ISTRE ) *THIGP/2.  0*DZETA 
FORCE( ISTRE+3)  =  FORCE ( ISTRE+3 ) -STRES ( ISTRE ) *THIGP*THIGP* 

ZETSP*DZETA/4.  O 

DO  80  ISTRE=4,  5 

FORCE ( ISTRE+3)  =  FORCE ( ISTRE+3 ) +STRES ( ISTRE ) *THIGP/2.  0*DZETA 
FORMAT (  15,  2X,  8E14.  6) 

ZETSP  =  ZETSP*DZETA/2.  0 
CONTINUE 

WRITE (6, 960)  FORCE( 1 ),  F0RCE(4), F0RCE(2>,  F0RCE(5), F0RCE(3>, 

FORCE ( 6 ) , FORCE ( 7 ) , F0RCE(8) 

FORMAT (  / ,  22H  STRESS  RESULTANTS  =  ,  6HN-XX  =,  E12.  5,  5X, 

6HM-XX  =,  E12.  5/22X,  6HN-YY  =,  E12.  5,  5X,  6HM-YY  =, 

E12.  5/22X,  6HN-YY  =,  E12.  5,  6HM-XY  =,  E12.  5/, 

22X,  6HQ-XZ  =,  E12.  5,  5X,  6HQ-YZ  =,  E12.  5) 

CONTINUE 

CONTINUE 

CONTINUE 

RETURN 

END 


SUBROUTINE  PRES 

SUBROUTINE  PRES ( BMATX,  COORD,  ELOAD,  LNODS,  PQSGP,  SHAPE, THICK, 

WEIGP ,  IELEM,  IGAUS,  UGAUS,  MELEM,  MPOIN,  NNODE, 

NEVAB, KPRES, CFACE,  PREVA,  SURFA,  DICOS,  M3POI ) 

**********#tt*****************************-*******-***-*****-**** 

THIS  SUBROUTINE  EVALUATES  THE  NODAL  LOADS  DUE  TO  PRESSURE 

#»#«**1HHHHHHti***»##*<HHHHHHHHHt*»**************************** 

COMMON  WCRMX ( 3-  24 )  ,  QVALU,  DUACB 

DIMENSION  3MATX ( 5,  45),  COORD(MPOIN, 8), ELOAD (MELEM, NEVAB), 

LNODS  (MELEM,  9),  POSGP  (  5  ) ,  PREMX(2,  9),  SHAPE  (3,  9), 

THICK ( MPOIN ) , WEIGP (5),  DICOS (3,  M3P0I ) , GMATX (2,  45) 

ZETA  =  CFACE 
NBORP  =  2 

CALL  FUNC ( 3MATX,  SHAPE,  THICK,  NBORP,  NNODE,  ZETA, MELEM, 

COORD, DICOS, LNODS, IELEM, MPOIN, M3P0I, GMATX) 

EVALUATE  THE  PRESSURE  AT  SAMPLING  POINTS  KPRES  =  O,  1  OR  2 
ACCORDING  AS  PRESSURE  IS  U.  D, HYDROSTATIC,  OR  SPECIFIED  AS  NODAL 
COORDINATES 

IF  ( KP  RES.  EQ.  O  )  GO  TO  20 
IF  (KPRES.  EQ.  2 )  GO  TO  10 
WORMX (3,1)  =  WORMX (3,1)  -  SURFA 
PRESS  =  PREVA*W0RMX(3, 1 ) 

IF  ( PR  ESS.  GE.  O.  O)  GO  TO  25 
PRESS  =0.0 
GO  TO  25 

PREVA  =  0.0 
DO  15  INODE  =1,  8 

NGASH  =  IABS ( LNODS ( IELEM, INODE) ) 

SET  UP  ARRARY  OF  NODAL  PRESSURE;  ROW  1  ROP,  ROW  2  BOTTOM 

PREMX(1,  INODE)  =  COORD ( NGASH, 4 ) 

PREMX  (2,  INODE)  =  COORD(NGASH, 8) 

GISH  =  (  ( 1. 0*ZETA>*PREMX( 1,  INODE)  +  ( 1  0-ZETA)*PREMX (2,  INODE) > /2.  0 
PREVA  =  PREVA*GISH*SHAPE( 1,  INODE) 

PRESS  =  PREVA 

GMULT  =  WEIGP ( IGAUS) * WEIGP ( JGAUS ) *CFACE*PRESS 

CALCULATE  CONSISTENT  NODAL  LOADS 

DO  45  INODE  =1, NNODE 

IPOIN  =  IABS < LNODS ( IELEM,  INODE) ) 

QVALU  =  -GMULT*SHAPE (1,1 NODE ) *D J AC B 
CALL  VECT(7,  21, 0,  3) 

DO  30  I  =1,3 

IPOSI  =  ( INODE-1 >*5+I 

ELOAD (IELEM,  IPOSI ) =ELO AD ( IELEM,  IPOSI ) +WORMX ( 1 , 21 ) 

QVALU  =  ZETA*THICK( IPOIN) /2.  0 
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CALL  SINGQP ( 21 ,  1 ) 

NPOSI  =  ( IPOIN— 1 ) *3 
DO  40  I  =1,2 

JPOSI  =  < INODE-1 )*5+( 1+3) 

NPOSI =NP0SI+1 
DO  32  K  =1,3 

WORMX(K,24>  =  DICOS(K, NPOSI ) 

CALL  VECT  <  21 , 24,  0,  1  > 

IF(  I.  EQ.  2)  GO  TO  35 
QVALU  =  — QVALU 

ELO AD ( IELEM,  JPOSI >  =  ELOAD ( IELEM, JPOSI >  +  QVALU 
CONTINUE 
CONTINUE 
RETURN 
END 


SUBROUTINE  RESTR 

SUBROUTINE  RESTR (ASDIS, EFFST , ELOAD, LNODS, 

MATNO,  MELEM,  MMATS,  MPOIN,  MTOTG, MTOTV. 

NDOFN, NELEM, NEVAB,  NGAUS,  NNODE, 

NPROP , NSTRE,  POSGP,  PROPS-  STRSG, 

TDISP, WEIGP,  EPSTN,  KUNLO,  AMATX,  DMATT, 

THICK, MLAYR, NLAYR,  LARGE) 

THIS  SUBROUTINE  REDUCES  THE  STRESSES  TO  THE  YIELD  SURFACE  AND 
EVALUATES  THE  EQUIVALENT  NODAL  FORCES 

♦♦S-HHHtiHt^*#*^**#**#*##*#****##****#*****#****##***##*#  . 

DIMENSION  ASDIS (MTOTV),  AVECT(5),  BMATX ( 5, 43), 

DMATT (5,  5,  MMATS) ,  DVECT(S)  ,  EFFST ( MTOTG ) , ELD IS (43), 
ELOAD ( MELEM ,  NEVAB ) ,  GVEC T ( 5 ) ,  LNODS  <  MELEM, 9 ) , 

MATNO ( MELEM, MLAYR ) ,  POSGP ( 3 ) ,  PROPS ( MMATS, NPROP ) , 
DESIG ( 5 ) ,  S I GMA ( 3 ) ,  SGT0T(3), ETDISC43), 

STRES ( 3 ) , EPSTN (MTOTG),  TDISP ( MTOTV ) , THICK C MPOIN)  , 
STRSG (5.  MTOTG) , WEIGP (3), 

AMATX (9, MMATS), GMATX ( 2,  43) 

REWIND  8 

DO  5  IELEM  =  1, NELEM 
DO  5  IEVAB  =  1, NEVAB 
ELOAD( IELEM,  IEVAB)  =0.0 
KUNLO  =  O 
KGAUS  =  0 

WRI TE( 5, *) 'STARTS  PROCESS  IN  RESTR' 

LOOP  OVER  EACH  ELEMENT 

DO  210  IELEM  =  1 , NELEM 

IDENTIFY  THE  DISPLACEMENTS  OF  THE  ELEMENT  NODAL  POINTS 
JPOSI  =  O 

DO  10  INODE  =  1, NNODE 

LNODE  =  IABS ( LNODS ( IELEM,  INODE) ) 

NPOSN  =  ( LNODE- 1 )*NDOFN 
DO  10  IDOFN  =1, NDOFN 
NPOSN  =  hFOSN  +  1 
JPOSI  =  JPOSI  +  1 
ELDIS (JPOSI)  =  ASDIS (NPOSN) 

ETDIS (JPOSI)  =  TD I SP ( NPOSN ) 

CONTINUE 
KELGS  =  0 

ENTER  LOOPS  OVER  EACH  SAMPLING  POINTS 
WRITE (6,  *)  ' 

WRITE(6,  *>'  STRESS  OUTPUT' 

WRITE(6,  *>' 

WRITE  (6#  *)  '  DOF','  SIGX  '  SIGY  '  SIOZ 

',  '  TOUXY  '  TOUYZ 

DO  20  3  IGAUS  ■  1,  NGAUS 
DO  20  3  JGAUS  =  1 , NGAUS 
DO  200  ILAYR  =  1 , NLAYR 
LPROP  *  MATNO ( IELEM, ILAYR > 

UNI AX  =  PROPS (LPROP,  6) 

HARDS  *  PROPS (LPROP,  7) 

KGAUS  »  KGAUS  +  1 
KELGS  -  KELGS  +1 
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EPSTN ( KGAUS)  =  ABS ( EPSTN ( KGAUS ) ) 

READ( 8)  BMATX,  GM ATX,  DVOLU 

:  CALL  SUBROUTINE  WHICH  SETS  UP  -BMATX-  TAKING  INTO  ACCOUNT 

:  THE  GEOMETRIC  NON-LINEARITY 

IF  (LARGE.  EQ.  1  >  CALL  LDISP  (BMATX,  GMATX,  ETDIS,  NEVAB  ) 

:  NOW  PROCEED  TO  CALCULATE  STRESSES  FROM  STRESS  =  DMATX*BMATX*ELDIS 

FIRST  STORE  IN  GASH  VECTOR  GVECT  THE  PRODUCT  BMATX*ELDIS 
DO  30  IDOFN  =1 , NDOFN 
GASH  =0.0 
DO  25  IEVAB  =1, NEVAB 

33  GASH  =  GASH+BMATX ( IDOFN,  IEVAB >*ELDIS( IEVAB ) 

30  GVECT( IDOFN)  =  GASH 

:  CALCULATE  THE  FIVE  LOCAL  STRESSES  IN  THE  ORDER  XX/ YY»  XY»  XZ,  YZ 

DO  50  ISTRE  =  l/NSTRE 
GASH  =  0.0 

DO  45  JSTRE  =  1, NSTRE 

GASH  =  GASH  +  DMATT( ISTRE, JSTRE, LPROP )*GVECT( JSTRE) 

STR  ES ( I STRE )  =  GASH 
°  FORMAT( /IX,  13,  IX,  3E14.  7) 

'  WRITE (6,  13)  ISTRE,  STRES ( 1 ) ,  STRES ( 2 ) .  STRES ( 3 ) , STRES ( 4 )  /  STRES ( 5 ) 

300  CONTINUE 

305  CONTINUE 

3  3)  CONTINUE 

WR I  TE (5,  •» )  ' *•*■» I N  RESTR  COMES  UP  TO  REDUCE  STRESSES' 

RETURN 
GO  TO  11101 

REDUCE  STRESSES  TO  THE  YIELD  SURFACE  FOR  YIELDED  GAUSS  POINTS 

-  j.02  PREYS  =  UNIAX  +  EPSTN ( KGAUS ) *HARDS 
DO  150  ISTR1  =  1 , NSTRE 
DESIG ( I STR 1 >  =  STRES ( ISTR 1 ) 

)  SIGMA(ISTRl)  =  STRSG( ISTR 1, KGAUS )+STRES( ISTR 1 > 

CALL  INVAR (AMATX,  SIGMA,  LPROP,  MMATS, YIELD) 

ESPRE  =  EFFST( KGAUS)  -  PREYS 
IF(  ESPRE.  GE.  0)  GO  TO  35 
ESC  UR  =  YIELD  -  PREYS 
IF(ESCUR.  LE.  O  O)  GO  TO  60 
REACT  =  ESCUR/ (YIELD-EFFST( KGAUS ) ) 

GO  TO  70 

ESCUR  =  YIELD  -  EFFST  ( KGAUS) 

IF(ESCUR  LE.  0.  O)  GO  TO  60 
RFACT  =10 

’0  MSTEP  =  ESCUR*8.  O/UNIAX  +  1.0 

ASTEP  =  MSTEP 

REDUC  =  l.O-RFACT 

DO  80  ISTR 1  =  1, NSTRE 

SGTOT ( ISTR 1 ) =STRSG ( ISTR1,  KGAUS ) +REDUC*STRES ( ISTR1 ) 

50  STRE5( ISTR1 )  =  RFACT*STRES( ISTR1 ) /ASTEP 

DO  90  I STEP  =1,  MSTEP 

CALL  INVAR (AMATX,  SGTOT,  LPROP,  MMATS,  YIELD) 

CALL  FLOWS(ABETA,  AVECT,  DVECT,  LPROP,  MMATS,  NPROP,  PROPS, 

SGTOT , AMATX , DMATT ) 

,  AGASH  =00 

1  DO  100  ISTR1  =  1, NSTRE 

1)  AGASH  =  AGASH  +  AVECT ( ISTR 1 ) *STRES < ISTR 1 ) 

DLAMD  =  AGASH  *ABETA 
I F ( DL AMD .  LT.  0.  0)  DLAMD  =  O.  0 

IBGASH  =  0.  0 

DO  110  ISTR1  =  1,  NSTRE 

BGASH  »  BGASH  +AVECT ( ISTR 1 ) *SGTQT < ISTR! ) 

10  SG TOT ( ISTR 1 )=SGTOT( ISTR 1 >+STRES( ISTR 1 )-DLAMD#DVECT( ISTR 1 > 

(EPSTN ( KGAUS) =EPSTN ( KGAUS ) +DLAMD*BGASH/ YIELD 
CONTINUE 

CALL  INVAR (AMATX,  SGTOT,  LPROP,  MMATS,  YIELD) 

CURYS  *  UN IAX+EPSTN ( KGAUS ) *HARDS 
BRING  =  1.0 

I  IF(YIELD.  GT.  CURYS)  3RING  =  CURYS/YIELD 
I  DO  130  ISTR1  =  1, NSTRE 
ISO  ST RSG( ISTR 1,  KGAUS)  =  3RING*SGT0T( ISTR1 ) 

EFFST (KGAUS)  =  BRING*YIELD 
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ALTERNATE  LOCATION  OF  STRESS  REDUCTION  LOOP  TERMINATION  CARD 
:90  CONTINUE 

GO  TO  190 

DO  180  ISTR1  =  1 »  NSTRE 

180  STRSG< ISTR1,  KGAUS)  =  STRSG( ISTRli  KGAUS >+DESIG < ISTR1 ) 

EFFST (KGAUS)  =  YIELD 

IF (EPSTN( KGAUS) .  EG.  O.  0.  OR.  ESCUR.  EQ.  0.  0)  GO  TO  190 
EPSTN (KGAUS)  =  -EPSTN ( KGAUS ) 

KUNLO  =  KUNLO  +  1 
:=?0  CONTINUE 

:  CALCULATE  THE  EQUIVALENT  NODAL  FORCES  AND  ASSOCIATE  WITH  THE 

:  ELEMENT  NODES 

MGASH  =  O 

DO  140  INODE  =  1 ,  NNODE 
DO  140  IDOFN  =  1 , NDOFN 
MGASH  =  MGASH  +  1 
DO  140  I3TRE  =  1, NSTRE 

140  ELOAD( IELEM,  MGASH)  =  ELOAD ( IELEM, MGASH > +BMATX < ISTRE,  MGASH > * 

STRSG(  ISTRE,  KGAUS  )  *DVQLU 
:  00  CONTINUE 

:  05  CONTINUE 

2210  CONTINUE 

RETURN 
END 


SUBROUTINE  SFR 1 
SUBROUTINE  SFRl(W.G.H) 

PARABOLIC  SHAPE  FUNCTIONS  AND  THEIR  FIRST  DERIVATIVES  FOR 
8-NODE  ELEMENT  PLUS  THE  CENTRAL  HIERARCHIAL  FUNCTION 
G  AND  H  DENOTE  THE  XI  AND  ETA  VALUES  AT  THE  POINT  CONSIDERED 
*■*•»*  ****■»■»* -*-*■»■ -*#■*■**•* *  **************■****•**•**.*  ■**•** 
DIMENSION  W(3,  9) 

GG  =  G*G 
GH  =  G*H 
HH  =  H*H 
GGH  =  GG-*H 
GHH  =  G»HH 
G2  =  G*2. 

H2  =  H*2. 

GH2  =  GH»2. 

W<1#1)  =  (-1 .  +GH+GG+HH-GGH-GHH) /4. 

W  (  1  <  2  )  =  (  1.  -H-GG+GGH) /2. 

W ( 1 . 3  )  =  (-1.  -GH+GG+HH— GGH+GHH) /4. 

W  (  1 ,  4  )  =  (1  -t-G-HH— GHH>/2. 

W ( 1 <  5 )  =  (-1.  +GH+GG+HH+GGH+GHH ) /4. 

W( 1 , 6  )  =  (1  +H-GG-GGH) /2. 

W ( 1 . 7  )  =  (-1  -GH+GG+HH+GGH-GHH) /4. 

W( 1 <  8  )  =  (1 .  -G-HH+GHH) /2. 

W ( 1 , 9  )  =  1 . 0-GG-HH+GG*HH 
W(2,  1  )  =  (H+G2-GH2-HH) /4 
W<2»  2  )  =  -G+GH 
W<2.  3)  =  ( -H+G2— GH2+HH )  /4. 

W(2,  4  )  =  (1  -HH>/2. 

W(2.  5)  =  ( H+G2+GH2+HH )  /4. 

W(2<  6  )  a  -G-GH 

W<2.  7)  =  ( — H+G2+GH2-HH  )  /4. 

W(2,  8)  *  <-l+HH>/2. 

W ( 2. 9  )  *  -G2* ( 1 .  0— HH ) 

W(3» 1 )  «  (G+H2-GG-GH2) /4. 

W C 3/  2  )  =  (-1.  -»-GG)/2. 

W(3,  3)  »  ( -G+H2-GG+GH2 )  /4. 

W<3, 4  )  a  -h-GH 

W<3.  3)  =  (  G+H2+GG+GH2 )  /4. 

W  ( 3,  6  )  a  Cl.-GG)/2. 

W(3,  7)  *  ( -G+H2+GG-GH2 ) /4 . 

W ( 3.  8  )  =  -l-H-GH 

W(3, 9  )  »  -H2*( 1  O-GG) 

RETURN 

END 


SUBROUTINE  SINGOP 
SUBROUTINE  SINGOP <N1 , NOPN ) 

»********»*******************«*******»•*****«»**»#*»**«#** 
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VECTORS  OR  MATRIX  MANIPULATIONS  INCLUDING  SINGLE  SPACE 
NOPN  =  1,  MULT 

NOPN  =  2,  NORMALISE  VECTOR 

NOPN  =  3,  TRANSPOSE  MATRIX 

NOPN  =  4,  FIND  VECTOR  SQUARED 

NOPN  =  5,  FORM  UNIT  DIAGONAL  MATRIX  IN  N1 
*■*•*■*  **#**•**••*•*•****•»***  ******■**■*■»*#■*  *********************** 
COMMON  WORMX (3<  24) .  GVALU,  DJACB 

WRI  TE<40, -*)  'ENTERS  SIGNOP  AND  RECEIVES  THE  FOLLOWING 
Nl, NOPN, FROM  VECT ' 

WR  I  TE  (  40,  *  )  'Nl.  NOPN=  ',  Nl.  NOPN 
GO  TO  (  1.  2,  3,  4,  5)  ,  NOPN 
CALL  VECTf.Nl,  Nl,  O,  3) 

RETURN 

CALL  VECT (Nl ,  Nl ,  O.  2 ) 

RETUR  N 

WRITE (  40,  *  )  'NOPN  =  ' ,  NOPN,  'N 1  =  ' ,  N 1 
CALL  MATM<N1,  Nl,  0,  5) 

RETURN 

CALL  VECT  (Nl ,  Nl.  0,  1  ) 

RETURN 
N2  =  Ml  +2 
DO  12  J  =  Nl ,  N2 
DO  11  I  =1,3 

WORMXC  I,  J)  =0.0 
II  =  II+l 

WORMX  (  1 1,  J)  =  10 
RETURN 
END 

SUBROUTINE  STIFF ( EPSTN, ESTIF,  KITER, LNODS, MATNO, 

MELEM, MEVAB, MMATS,  MPOIN,  MTOTG,  NDOFN. 

NELEM, NEVAB, NGAUS, NNODE,  NPROP, 

NSTRE,  POSGP ,  PROPS,  STRSG.  WEIGP,  AMATX, 

DMATT , MLAYR,  NLAYR,  THICK, 

TDISP, MTOTV,  LARGE) 

*-***■*##-**■*■■**■■**-*-*#■*+* **■»»»•*»********  ********************* 

THIS  SUBROUTINE  EVALUATES  THE  STIFFNESS  MATRIX  FOR  EACH 
ELEMENT  IN  TURN 

-**■»-*  **■#■* ■*•**•  •*■*** •**■»■» *■»■•*•>•••*■*•*»■*  *»»*****************#**"»***"» 
DIMENSION  BMATX  (  5,  45),  DBMATC5,  43),  DMATX  (  5,  3), 

EST I F ( MEVAB , MEVAB ) , LNODS ( MELEM,  9 ) ,  MATNO ( MELEM,  MLAYR ) , 
POSGP ( 5 ) , PROPS ( MMATS,  NPROP ) ,  AMATX (9,  MMATS ) , 

STRESC5),  THICK  (MPOIN  ) ,  WEIGPO),  EPSTN  <  MTOTG ) , 

STRSG (5, MTOTG) , A VECT ( 3 ) , DVECTI3) , DMATT (3, 3, MMATS), 
TDISP ( MTOTV )  ,  ETD I S ( 43 ) , GMATX (2, 43) 

REWIND  1 
REWIND  8 
KGAUS  =  0 

LOOP  OVER  EACH  ELEMENT 
DO  110  IELEM  =  1,  NELEM 

SET  UP  THE  ELEMENT  DISPLACEMENT  VECTOR  -ETDIS- 
JPOSI  =  0 

DO  10  INODE  =  1,  NNODE 

LNODE  =  IABS ( LNODS ( IELEM,  INODE) ) 

NPOSN  =  ( LNODE- 1 ) *NDOFN 
DO  10  IDOFN  =  1,  NDOFN 
NPOSN  =  NPOSN  +  1 
JPOSI  =  JPOSI  +  1 

ETDIS(JPOSI)  =  TDISP (NPOSN) 

DO  20  IEVAB  =  1,  NEVAB 
DO  20  JEVAB  =  1 ,  NEVAB 
EST IF ( IEVAB,  JEVAB )  =0.0 
KGASP  =  0 

INITIALIZE  THE  ELEMENT  STIFFNESS  MATRIX 

DO  103  IGAUS  =  1,  NGAUS 
DO  10  3  JCAUS  =  1,  NGAUS 
DO  100  ILAYR  =  1, NLAYR 
LPROP  =  MATNQ< IELEM,  ILAYR) 

KGASP  =  KGASP  -1 

KGAUS  =  KGAUS  +  1 

READ ( S >  BMATX,  GMATX,  DVOLU 
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CALL  SUBROUTINE  WHICH  SETS  UP  -BMATX-  TAKING  INTO  ACCOUNT 
THE  LARGE  DISPLACEMENTS 
IF  (LARGE.  EQ.  1.  AND.  KITER.  GT.  2) 

CALL  LDISP(BMATX;  GMATX,  ETDIS,  NEVAB) 

IF( KITER.  EQ.  2 ) GO  TO  80 

IF ( EPSTN (KGAUS ) .  LE.  0.  0 )  GO  TO  80 

CALCULATE  THE  ELASTO-PLASTIC  -D-  MATRIX 


DO  30  ISTRE  =  1 , NSTRE 
30  STRESt  ISTRE)  =  STRSG (  ISTRE,  KGAUS ) 

CALL  FLOWS( A3ETA,  AVECT,  DVECT ,  LPROP,  MMATS,  NPROP,  PROPS, 
STRES, AMATX,  DMATT > 

DO  70  ISTRE  =  1, NSTRE 
DO  70  USTRE  =  1, NSTRE 

70  DMATXC ISTRE,  JSTRE)  =  DMATT ( ISTRE,  JSTRE,  LPROP ) -ABETA* 

DVECT  < ISTRE )*DVECT ( JSTRE ) 

WR I TE ( 30, * )  ( (DMATX( 1ST, JST),  UST=1,  NSTRE),  IST=1, NSTRE) 

:  WRITE (30,-*)  'VALUE  OF  NSTRE= ',  NSTRE 

:  CALCULATE  THE  PRODUCT  OF  D  MATRIX  AND  B  MATRIX 
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DO  35  ISTRE  =  1, NSTRE 
DO  35  IEVAB  =  1 , NEVAB 
D3MAT  (  ISTRE,  IEVAB)  =0.0 
DO  35  JSTRE  =  1, NSTRE 

DBMAT( ISTRE,  IEVA3 )  =  DBMAT( ISTRE,  IEVAB ) +DMATX ( ISTRE, JSTRE ) * 

BMATX (JSTRE, IEVAB) 

CONTINUE 
GO  TO  90 
CONTINUE 

DO  85  ISTRE  =  1,  NSTRE 
DO  85  IEVAB  =  1 ,  NEVAB 
DBMAT  (  ISTRE,  IEVAB  )  =0.0 
DO  85  JSTRE  =  1 , NSTRE 

DBMAT( ISTRE,  IEVAB)  =  DBMAT ( ISTRE,  IEVAB )  + 

DMATT ( ISTRE,  JSTRE,  LPROP ) *BMATX ( JSTRE,  IEVAB ) 


:  WRITING  BGMAT  FOR  TEST  ON  UNIT  30 

:  WRI  TE(30,  *>  'BGMAT  ' 

:  WRI TE(30, 666)  (  ( BMATX ( I ,  J ) ,  J=1 ,  45 ) ,  1  =  1 ,  3 ) 

:666  FORMAT  (  IX,  5E1 4.  7/ 1  X ,  5E1 4.  7/ 1 X,  5E14.  7/ IX,  5E14.  7/ IX,  3E14.  7 

:  /IX,  5E14  7,  /IX,  5E14.  7,  /IX,  5E14.  7/1X,  3E14.  7) 

:  WRITE  D  MATIRX  ONTO  30  FOR  CHECK  ONLY 

:  WR  I  TE  (  30,  *  )  '  DMATT  ' 

]  WR  ITE(30,  777)  (  (  DMATT  (  I ,  J,  1  ) ,  J=1 ,  5  > ,  1  =  1 ,  5  > 

',777  FORMAT  (IX,  5E14.  7) 


;  CALCULATE  THE  ELEMENT  STIFFNESS 

}0  DO  40  IEVAB  =1,  NEVAB 

DO  40  JEVAB  =  IEVAB, NEVAB 
DO  40  ISTRE  =  1, NSTRE 

I  -  EST IF ( IEVAB,  JEVAB >  =  ESTIF ( IEVAB, JEVAB )+BMATX ( ISTRE,  IEVAB )* 

DBMAT( ISTRE, JEVAB >*DVOLU 

:  CALL  SUBROUTINE  WHICH  CALCULATES  THE  GEOMETRIC  MATRIX  -GEMTX- 

:  WRITE!  5,  *)  '****»**»C ALLIN  GEOME*******  ' 


CALL  GEOME (ESTIF,  GMATX,  STRSG,  MEVAB,  NEVAB,  MTOTG,  KGAUS,  DVOLU) 

'•  WRITE( 5. *>  '**********COMING  OUT  OF  GEOME*****' 

>8  CONTINUE 

CONTINUE 
I  15  CONTINUE 

:|  CONTRACT  THE  LOWER  TRIANGLE  OF  THE  STIFFNESS  MATRIX 

DO  60  IEVAB  =  1,  NEVAB 

DO  60  JEVAB  =  1 , NEVAB 

I  ESTIF (JEVAB,  IEVAB )  =  EST IF ( IEVAB, JEVAB ) 

CONTINUE 

:  WR  I  TE ( 20,  * )  'ESTIF(22,  22',  ESTIFC22,  22) 

;■  WR  I  TE  ( 20,  *  >  'ESTIF(27,  27',  ESTIF(27,  27) 

:  V  STORE  THE  STIFFNESS  MATRIX  FOR  EACH  ELEMENT  ON  DISC  FILE 


WRITE  ( 1  )  ESTIF 
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CONTINUE 
DO  771  ILM  =  1,2 

WR I TE ( 30, * )  'ELEMENT  NO.  =  ' ,  ILM,  MEVAB 
WRI  TE(30,  *>  (  (ESTIF(  I,  J),  J=l,  43),  1  =  1, 43) 

CONTINUE 
RETUR  N 
END 


SUBROUTINE  VECT 
SUBROUTINE  VECTCNl,  N2,  N3,  NOPN) 

*•*•»#*•*  •*-*•»*■*#■*  ■*■**■*•*■*■*■»•»■■&■*  •&■*■*■»■•«■•»•#•##•#■**••**•***#•*•*•#■#•*■*•*■#* 
VECTOR  MANIPULATIONS 

NOPN  =  1 , QVALU  BECOMES  SCALAR  PRODUCT  OF  COL.  N1  AND  N2 

NOPN  =  2,  NORMALISE  N1  INTO  N2 

NOPN  =  3,  MULTIPLY  N1  BY  QVALU,  PLACE  IN  N2 

NOPN  =  4,  N3  BECOMES  VECTOR  PRODUCT  OF  N1  AND  N2 

NOPN  =  5,  N3  BECOMES  VECTOR  N1  +  VECTOR  N2*QVALU 

*-*  •***■*#  I*-#-##-###################*##*####*# 

COMMON  WORMX  ( 3,  24),  QVALU,  D  JACOB 

WRI  TEC  5,  *)  ' . ENTERS  VECT . ' 

WRI  TECS,  *)  'Nl,  N2,  N3,  NOPN',  Nl,  N2,  N3,  NOPN 
DO  1101  I  =1,  Nl 

WRI  TEC  5,  *)  ' . WORMX  C  I,  Nl  ) .  .  .  WORMX  (  I,  Nl  ) 

CONTINUE 
II  =  Nl 

GO  TO  C  1, 2,  3,  4,  5),  NOPN 
II  =  N2 

WR  I  TE  C  5,  *>  ' - NQPN=,  11,  Nl.  N2',  NOPN,  II,  Nl,  N2 

WRI  TECS,  *)  '  WORMX  "X.  .  .  ',  WORMX  C  1,  Nl  ) ,  WORMX  (2,  Nl  ),  WORMX  (3.  Nl ) 

WRI  TEC  5,  4)  '  WORMX  "S.  .  I,  II  W0RMXC1,  ID,  WORMX  C  2.  ID.  WORMX  (3,  ID 
QVALU  =  0.0 
DO  10  I  =1.3 

QVALU  =  QVALU  +  WORMX C I ,  Nl) *WORMX ( 1 ,  1 1) 

GO  TO  C  1  5,  16),  NOPN 

IFC  QVALU.  NE.  0.  O  )  GO  TO  18 
WRITE C 6, 17) 

FOR  MAT  C 12H  NULL  VECTOR) 

STOP 

EXECUTINON  IS  TERMINATED  WHEN  A  VECTOR  IS  NULL 
QVALU  =  1.  O/SQRTCQVALU) 

DO  12  I  =1,3 

W0RMXCI.N2)  =  WORMX  C  I,  Nl  )*QVALU 
RETURN 
=3 

DO  13  I  =1,3 
J  =  6-  I— IX 

WRI  TEC  5.  *>  '  I,  U,  K.  .  .  ',  I,  J,  K,  Nl,  N2,  N3 
WORMX  C I, N3>  =  WORMX  C  J,  Nl >*WORMX(K,  N2)-W0RMX(K,  Nl )*WORMX( J,  N2) 
WRITEC5 ,  *)  'k&k&tbtt  WORMX  C  I ,  N3  )  IN  VECT  &&&& ' ,  WORMX  (  I ,  N3 ) 

K  =  I 
RETUR  N 
DO  14  I  =1,  3 

W0RMXCI.N3)  =  WORMX  C I , Nl )  +  QVALU*WORMX ( I ,  N2 ) 

RETURN 

END 


SUBROUTINE  WORKS 

SUBROUTINE  WORKSCCOORD,  DICOS,  LNODS,  THICK,  MELEM,  MPOIN,  NPOIN,  M3P0I ) 
*********••**•»•»*»**■  »**#*»«***#*##«»##.»«#**##*##****#*#««•»****-»*** 
THIS  SUBROUTINE  SETS  UP  THE  THICKNESS  AND  ORTHOGONAL 
SYSTEM  OF  AXES  AT  EACH  NODAL  POINT 

-**•»■*  a********************************************************** 
DIMENSION  COORD (MPOIN,  8),  LNODS ( MELEM,  9),  THICK(MPOIN) , 

DICOS ( 3, M3P0I ) 

COMMON  WORMX ( 3,  24 ) ,  QVALU,  DJACB 

TOP  AND  BOTTOM  CO-ORDINATES  ARE  SET  UP  AT  COLUMNS  -1-  AND  -2- 

DO  30  IPOIN  =  1, NPOIN 
WRI TECS, 3101)  IPOIN 
FOR  MAT (  /  '+  ',  12) 

DO  10  I  =1,3 

WORMX  (1,1)  =  COORD( IPOIN,  I ) 

WOR MX  (1,2)  =  COORD(  IPOIN,  1+4) 

NGASH  =  3 
NGISH  =  NGASH  +  2 
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QVALU  =  -1.0 

VECTOR  V— 3  IN  COLUMN  NGISH 
CALL  VECT(  1,  2,  NGISH,  5) 

SETS  QVALU  EQUAL  TO  SCALAR  PRODUCT  OF  THE  VECTOR  (V-3)*(V-3> 

WRIT£(5,  *)  'START  ENTERING  SIGNOP . ' 

CALL  SINGOP(NGISH,  4) 

THICK (IPQIN)  =  SQRT (QVALU) 

CREATES  AND  NORMALISES  AT  EACH  NODE  THE  VECTORS  V-l.V-2  AND  V-3 
CALL  FRAME (NOASH,  NGISH,  O,  1 ) 

DO  354  1=1,3 

WRI  TECS,  *>  ' - WORMX - ',  WORMXC  1,1),  WORMX  <  I,  2) 

CONTINUE 

SET  UP  THE  DIRECTION  COSINE  MATRIX  OF  THE  LOCAL  AXES  AT  EACH 
POINT  IN  ORDER  V-l,V-2,  V-3 

NPOSI  =  (  IPO IN— 1 ) #3 
DO  20  1=1, 3 
DO  20  J  =1,3 
UPOSI  =  NPOSI  +  I 

DICQSCJ,  JPOSI)  =  WORMX  <J,  1+2) 

CONTINUE 

RETURN 

END 


SUBROUTINE  RESTAR 

SUBROUTINE  RESTAR  ( EFFST,  EL.OAD,  EPSTN,  MELEM,  MEVAB,  MTOTG, 

MTOTV, MVFIX,  TDISP,  TLOAD,  TREAC,  STRSG, 
TFACT , KINGS) 

-SH*-* -3- **-»***#**<--9-  -in*-*-****-*-* ******-»#********«************ 

THIS  SUBROUTINE  RECORDS  ONTO  TAPE  12  THE  DATA  NEEEDED  TO 
RESTART  THE  PROBLEM 

*************-»***************  •*•*•»•*  *********■**•**•**••***•*•»•**■»* 
D I MEN  S I ON  EFFST  <  MTOTV ) , ELOAD ( MELEM, MEVAB ) , EPSTN ( MTOTG ) , 

TDISP (MTOTV), TLOAD (MELEM,  MEVAB),  TREAC (MVFIX,  5), 
STRSG ( 5, MTOTG) 

REWIND  12 

WRITE  (  12)  KINGS,  TFACT,  EFFST,  ELOAD,  EPSTN 
WRITE ( 12)  TDISP-  TLOAD,  TREAC, STRSG 
RETURN 
END 


SUBROUTINE  ZERO 

SUBROUTINE  ZERO (EFFST, ELOAD, EPSTN, MELEM, MEVAB, KINGS, 

MTOTG,  MTOTV,  NDOFN,  NELEM,  NEVAB,  NREST , 

NSTRE,  NTOTG,  NTOTV,  NVFIX,  MVFIX,  STRSG, 

TDISP,  TFACT,  TLOAD, TREAC ) 

»-**** -a-a-a-  *#»******-*»***-#*»*********************** 
THIS  SUBROUTINE  INITIALISES  VARIOUS  ARRAYS  TO  ZERO 

e**********************  a*******************-********** 
DIMENSION  ELOAD ( MELEM,  MEVAB ) ,  STRSG(5,  MTOTG),  TDISP (MTOTV) , 
TLOAD ( MELEM, MEVAB), TREAC ( MVFI X,  5),  EPSTN ( MTOTG > , 
EFFST (MTOTG) 

WRITE (50,*) 'VALUE  OF  NEVAB  WITHIN  ZERO=',NEVAB 
IF  (NREST.  EQ.  1)  GO  TO  70 
KINGS  =  0 
TFACT  =00 
DO  30  IELEH  =  1, NELEM 
DO  30  IEVAB  =  1, NEVAB 
ELOAD  (  IELEM,  IEVAB)  =0.0 
TLOADC  IELEM,  IEVAB)  =  0.0 
DO  40  ITQTV  =  1,  NTOTV 
TDISP  (  ITQTV)  =  0.  0 
DO  50  IVFIX  =  1, NVFIX 
DO  50  IDOFN  =  1, NDOFN 

TREAC  (  IVFIX,  IDOFN)  =0.0 
DO  60  ITOTG  =  1, NTOTG 
EPSTN (ITOTG)  =  0.  0 
EFFST (ITOTG)  =0.0 
DO  60  ISTR1  =  1, NSTRE 

STRSG(  ISTR1,  ITOTG)  =0.0 
GO  TO  80 
REWIND  12 
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READ (  12)  KINGS,  TREACT, EFFST, ELCAD, EPSTN 
READ!  12)  TDISP,  TLOAD,  TREAC,  STRSG 
CONTINUE 
RETURN 
END 


SUBROUTINE  SHEARC 

SUBROUTINE  SHEARC ( MATNO, HELEN, MLAYR, PROPS, MMATS, NPROP, 

COEFE, NLAYR, DMATT) 

*  ■*•#•■*■*•*•*  •*  •*  ■*>  4  •***  •**•#**■»•  ■»■»■*•»*•»■****■»*•»*•»■■»•»***»■»**■«•*  * 

CALCULATES  THE  SHEAR  CORRECTION  FACTOR  FOR  THE  CASE  OF 
LAMINATED  COMPOSITE  STRUCTURES 

*** ** **■■**■■*•*-»•*•» i* *■**■!»■■*■*•?»•■»•■»■«•#*■*•»■  *-S- ******■**•»■*•*■*■*•*■*•*■»■**•*•»*•** 

DIMENSION  RFACT ( 2 ) ,  TRL0W(2),  UPTERC2),  GBARF ( 2 ) ,  MATNO(MELEM,  MLAYR ) , 
COEFE ( 2 ) ,  ZETA1 (2),  ZETA2 ( 2 ) ,  DINDX(2),  PROPS(MMATS,  NPROP), 
GINDX ( 2  > ,  DIFF2(2 ) ,  DIFF3C2) , SUMLA(2), DMATT ( 3,  5,  MMATS), 

D IFF5 ( 2  > 

INITIALISE  SOME  ARRAYSC 
DO  10  I  =  1,2 
SUMLA  (  I  )  =0.0 
RFACT  (  I  )  =0.0 
GBARF  (  I  )  =0.0 
UPTER  (  I  )  =0.0 
TRLOW  (  I  )  =  0.  O 
COEFE  (  I  >  =  O.  0 

CALCULATE  THE  POSITION  OF  THE  NEUTRAL  AXIS 

DSUMM  =  0.  O 

DO  15  ILAYR  =  1,  NLAYR 

LPROP  =  MATN0(1,  ILAYR) 

DZETA  =  PROPS (LPROP,  3) 

ZHEIG  =  DSLMM+DZETA/2. 

DO  14  I  =  1,  2 

DINDXCI)  =  DMATT ( I, I. LPROP) 

UPTER  (I)  =  UPTER ( I >  +DINDX ( I ) *ZHEIG*DZETA 
TRLOW(I)  =  TRLOW( I )+DINDX( I )*DZETA 
DSUMM  =  DSUMM+DZETA 
DO  16  I  =1,2 

ZET  A2 ( I )  =  -UPTER  < I ) /TRLOW  < I ) 

CALCULATE  THE  SHEAR  CORRECTION  FACTOR 
DO  20  ILAYR  =  1 , NLAYR 
LPROP  =  MATNO( 1,  ILAYR ) 

DIFF1  =  PROPS (LPROP,  3) 

INDEX  =  10 

DO  20  I  =1,2 

ZETA1  (  I  )  =  ZETA2 ( I  ) 

ZETA2  (  I  )  =  ZETA1 ( I >*DIFF1 
DIFF2  (  I  )  =  ZETA2( I >**2-ZETAl ( I >**2 
D IFF3  (  I )  =  ZETA2( I >**3-ZETAl ( I )**3 
DIFF5  ( I )  =  ZETA2( I >**5-ZETAl ( I 

DINDX  (  I  )  =  DMATT (1,1, LPROP ) 

GINDX  i  I  )  =  PROPS(LPROP,  INDEX) 

RFACT  (  I  )  =  RFACT ( I )  +  DINDX < I >*DIFF3< I > /3. 

GBARF  (I)  =  GBARF ( I )+GINDX ( I >*DIFF1 /2. 

TERM1  =  SUMLA( I )*SUMLA< I >*DIFF1 
TERM2  =  DINDX ( I ) * ( ZETA1 ( I ) **4 )*DIFF1 / 4. 

TER M3  =  DINDX ( I )*DIFF3( I ) /20. 

TERM4  =  -DINDX ( I >*ZETA1 ( I )*ZETA1 ( I )*DIFF3< I )/6. 

TERM 5  =  SUMLA(I)*ZETA1(I)*ZETA1<I)*DIFF1 
TERM6  =  -SUMLA( I >*DIFF3( I ) /3. 

COEFE  (  I  )  *  COEFE ( I )  +  ( TERM 1+D INDX ( I ) * ( TERM2+ 

TERM3+TERM4+TERM5+TERM6) ) /GINDX ( I ) 

INDEX  =  INDEX  +  1 

SUMLA  ( I )  =  SUMLA( I )-DINDX ( I >*DIFF2< I ) /2. 

CONTINUE 
DO  30  I  =1,2 

COEFE ( I )  =  RFACT ( I )*RFACT ( I ) / (2.  *GBARF < I >*COEFE( I ) ) 

RETURN 

END 


MAIN  MASTER  OR  CONTROLLING  SEGMENT 
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PROGRAM  PLSHELL  ( . > 

PROGRAM  PLSHELL 

<  INPUT,  OUTPUT,  TAPE5=INPUT,  TAPE6=0UTPUT, 

TAPE1 , TAPE2, TAPE4, TAPE7, TAPE8, TAPE12 ) 

•a-*-*-*  *•  •*  a-a  ■*  ■»  -a  -*  -a-  ->■*  -a-  -a-  *  a-  *  #*■**■  *■»#•»■**•■»•*#•»■#■ -a* 

PROGRAM  FOR  ELASTO-PL ASTIC  ANALYSIS  OF  ANISOTROPIC  SHELL 
STRUCTURES  USING  QUADRATIC  DEGENERATE  SHELL  ELEMENTS ( 8-NODE 
HETEROSIS  AND  9-NODE)  AND  A  LAYERED  APPROACH,  ACCOUNTING  FOR 
LARGE  DISPLACEMENTS  AND  SELECTIVE  INTEGRATION ( TRANSVERSE 
SHEAR  TERMS).  THE  ANISOTROPIC  PARAMETERS  REMAIN  CONSTANT 
DURING  THE  FLOW  RESTART  FACILITIES  INCLUDED 
■a***  -a-**  -a  a-*-*-*  -a-  -a-  a-#**  ■a******************  •**■»•*■****■ 

DIMENSION  ASDIS ( 500 ) ,  CQORDdOO,  8),  EL0AD(20,  45),  EQRHS(IO), 

EQUAT ( 75, 10) , £FFST( 1800) , EPSTNC 1800), ESTIF<45, 45), 
FIXED (500), GLOAD ( 75 ) , GST IF (2850), GRAVI ( 3 ) , 

IFF I  X ( 500 ) ,  LOCEL ( 45 ) ,  LN0DS(20,  9),  MATN0(20,  10), 
NACVA ( 75 ) , NAMEVI 10) , NDESTC45) , NDFRO ( 20 ) , 

NOFIX (36) , NOUTP (2) , NP IVO( 10) , POSGP (5), THICK ( 100) , 
PRESC  (  36,  5),  PROPS  (  5,  17),  RL0AD(20,  45),  STFOROOO), 
STRSGC5, 1800), TDISP(500>, TL0AD(20, 45), T0FOR(5OO), 
TREAC  <36,  5) ,  VECRV(75) , WEIGP(5>, DIC0S(3, 300), 

AM  ATX  (  9,  5),  DMATT  (  5,  5,  5) 

OPEN  ( UNIT=1  5,  F  ILE=  '  /  SHELL  1  INP  A',  STATUS  =  'OLD') 

OPEN ( UNI T=6,  FILE='/  SHELL.  OUT  A',  STATUS  =  'NEW') 

OPEN ( UN I T=1 ,  STATUS= 'SCRATCH ' > 

OPEN ( UNI T=4,  STATUS= 'SCRATCH ' ) 

OPEN ( UNI T=7,  STATUS= 'SCRATCH  '  ) 

OPE N ( UN I T=Q,  STATUS^ 'SCRATCH ' ) 

OPEN ( UN I T= 1 2,  STATUS^  'SCRATCH  '  ) 


PRESET  VARIABLES  ASSOCIATED  WITH  DYNAMIC  DIMENSIONING 

CALL  D I MEN (MB UFA,  MELEM,  MEVAB,  MFRON,  MMATS,  MPOIN,  MSTIF, 
MTOTG, MTOTV, MVFIX,  NDOFN,  NPROP, NSTRE, M3P0I, 
MLAYR ) 

CALL  THE  -SUBROUTINE  WHICH  READS  MOST  OF  THE  PROBLEM  DATA 


CALL  INPUT<ANVEL,  COORD,  GRAVI,  IFFIX,LNODS, 

MATNO, MFRON,  MELEM, MMATS, MPOIN, 

MTOTV, MVFIX, NDFRO,  NDOFN,  NELEM,  NCOLA, 
NEVAE, NGAUS, NGAUZ , NMATS,  NNODE,  MLAYR, 
NOFIX, NPOIN, NPROP, NTOTG,  NLAYR,  NREST , 
NTQTV, NVFIX, POSGP, PRESC, PROPS,  WEIGP, 
NALGO, NINCS, LARGE) 


CALL  SUBROUTINE  WHICH  COMPUTES  THE  ELASTICITY  MATRIX  -D-  AND 
THE  MATRIX  OF  THE  ANISOTROPIC  PARAMETERS 
CALL  MGDAN ( AMATX ,  DMATT, NMATS,  NPROP,  PROPS,  MMATS, 

MATNO, MELEM, MLAYR, NELEM, NLAYR ) 

CREATE  THE  THICKNESS  AND  A  LOCAL  ORTHOGONAL  SET  AT  EACH  NODAL  POINT 


CALL  WORKS (COORD,  DICOS, LNODS,  THICK,  MELEM,  MPOIN, 
NPOIN, M3P0I ) 

WRITE (5,  *) '+++++++++++C  OMESOUTOFWOR 
PAUSE 


K  +++++ 


CALL  SUBROUTINE  WHICH  COMPUTES  BMATX  AND  GMATX. 
ARE  STORED  ON  TAPE  8  FOR  LATER  USAGE 


THESE  MATRICES 


CALL  BGMAT (COORD,  DICOS,  LNODS,  MATNO,  MELEM, 

MLAYR, MMATS, MPOIN,  M3P0I,  NELEM, 

NEVAB, NGAUS,  NGAUZ,  NLAYR,  NNODE,  NPROP, 
POSGP, PROPS,  THICK, WEIGP) 

CALL  SUBROUTINE  WHICH  COMPUTES  THE  APPLIED  LOADS 
AFTER  READING  SOME  NODAL  DATA 

WRI TE< 5, *) 'ENTERS  LOADS  AFTER  COMING  OUT  OF  BGMAT' 
PAUSE 

CALL  LOADS (ANVEL,  COORD,  RLOAD.  GRAVI,  LNODS, 

MATNO, MELEM, MEVAB,  MMATS,  MPOIN,  DICOS, 
NELEM, NEVAB, NGAUS,  THICK, 

NNODE, NPROP, NSTRE, POSGP, M3P0I, 

PROPS, WEIGP, MLAYR, NLAYR ) 

WR I  TE(  5,  *>!!!!!!  !C  O  M  E  S  O  U  T  O  F  L  O  A  D  S' 
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INITIALISE  CERTAIN  ARRAYS 
WRITE (50.*) 'VALUE  OF  NEVAE  ENTERING  ZERO=', NEVAB 

CALL  ZERO (  EFFST,  ELOAD,  EPSTN,  MELEM,  MEVAB,  KINGS, 

MTOTG, MTOTV, NDOFN, NELEM, NEVAB,  NREST , 

NSTRE, NTQTG. NTOTV, NVFIX, MVFIX, STRSG, 

TDISP,  TFACT ,  TLOAD,  TREAC  > 

WRI TE(50, *) 'VALUE  OF  NEVAB  COMING  OUT  OF  ZERO=', NEVAB 
LOOP  OVER  EACH  ELEMENT 

WRITE  (50,*)  'NINCS  =  ',  NINCS 
DO  100  IINCS  =  1,  NINCS 

READ  DATA  FOR  CURRENT  INCREMENT 

WRITE (50, *>  'VALUE  OF  NEVAB  ENTERING  INCREM  NEVAB 
CALL  INCREM(ELOAD,  FIXED,  I INCS, MELEM, MEVAB, MITER, 

MTOTV, MVFIX, NDOFN, NELEM, NEVAB, NOUTP, 

NOFIX, NTOTV, NVFIX, PRESC, RLQAD, TFACT, 

TLOAD, TOLER, LNODS, IFFIX, NNODE, NCOLA, 

NREST, KINGS) 

LOOP  OVER  EACH  ITERATION 
KSTOP  =  O 
KUNLO  =  0 

DQ  50  IT  TER  -  1 ,  M I  TER 
K I TER -I INCS* I  ITER 
J I NC S  =  I  I NC S-K I NGS 

CALL  SUBROUTINE  WHICH  SELECTS  SOLUTION  ALGORITHM  VARIABLE  KRESL 

CALL  ALGOR (FIXED.  KITER,  I  ITER, KRESL,  MTOTV, NALGO, 

NTOTV, KUNLO, KINGS) 

WRI TE( 5, *) 'COMES  OUT  OF  ALGOR' 

WRI TE( 5, *) 'VALUES  OF  KRESL,  NALGO ',  KRESL,  NALGO 

CHECK  WHETHER  A  NEW  EVALUATION  OF  THE  STIFFNESS  MATRIX 
IS  REQUIRED 


IF  (KRESL.  EG.  1  ) 

CALL  ST  IFF ( EPSTN, ESTIF, KITER, LNODS, MATNO, 

MELEM, MEVAB, MMATS, MPOIN,  MTOTG,  NDOFN, 
NELEM, NEVAB, NGAUS,  NNODE,  NPROP, 

NSTRE, POSGP, PROPS, STRSG,  WEIGP,  AMATX. 
DMATT. MLAYR,  NLAYR ,  THICK, 

TDISP, MTOTV,  LARGE) 

WR ITE (5,  * )  '*****COMES  OUT  OF  STIFF******' 


MERGE  AND  SOLVE  THE  RESULTING  EQUATIONS  3Y  THE  FRONTAL  SOLVER 
WR I TE ( 5, * )  '******CALLING  FRONT******' 

WRI TE( 50, *)  'KRESL, NALGO  BEFORE  CALLING  STIFF ',  KRESL, NALGO 

WRI TE( 50, *>  'VALUE  OF  NTOTV  BEFORE  CALLING  FRONT', NTOTV 
CALL  FRONT (ASDIS,  ELOAD,  EQRHS,  EQUAT,  ESTIF,  FIXED, 

GLOAD, GSTIF,  IFFIX,  JINCS,  I  ITER, KRESL, 

LOCEL, LNODS, MBUFA,  MELEM,  MEVAB,  MFRON, 

MSTIF, MTOTV, MVFIX,  NACVA,  NAMEV,  NDEST , 

NDOFN, NELEM, NEVAB,  NNODE,  NOFIX,  NPIVO, 

NPOIN, NTOTV, TDISP, TLOAD, TREAC,  VECRV) 

WRITE(5, *)  'START  ENTERING  RESTR  ' 

WRITE (5,*)  '****** **COMES  OUT  OF  FRONT*******' 

CALCULATE  RESIDUAL  FORCES 

CALL  RESTR (ASDIS,  EFFST,  ELOAD,  LNODS, 

MATNO, MELEM, MMATS,  MPOIN,  MTOTG,  MTOTV, 

NDOFN, NELEM, NEVAB,  NGAUS,  NNODE, 

NPROP, NSTRE, POSGP,  PROPS,  STRSG, 

TDISP, WEIGP, EPSTN,  KUNLO,  AMATX,  DMATT, 

THICK,  MLAYR,  NLAYR,  LARGE) 

CHECK  FOR  CONVERGENCE 

WR ITE (  5,  *  )  '***** **C ALL I NG  CONVER  ************' 


Pag*  37 


CALL  CONVER(£LQAD,  I  ITER, LNODS,  MELEM, MEVAB, MTOTV, 

NCHEK.  NDOFN,  NELEM,  NEVAB,  NNODE.  NTOTV, 

STFOR, TLOAD, TOFOR, TOLER) 

WRITE!  5,*)  '**4"*hhh»-**C0MES  OUT  OF  CQNVER***"**** ' 

OUTPUT  RESULTS  IF  REGUUIRED 

IF(  1 1  TER  EQ.  1.  AND.  NOUTP  (  1  ) .  GT.  0) 

CALL  OUTPUT ( I  ITER,  MTOTG,  NTOTV,  MVFIX,  NCHECK,  NELEM, 

NGAUS, NOFIX, NOUTP, NPOIN, 

NSTRE, NVFIX, STRSG,  TDISP, TREAC, EPSTN. 

POSGP , EFFST , MATNQ, NNATS,  PROPS, 

NPROP, MELEN,  THICK, 

NPOIN, LNODS,  NLAYR,  NLAYR ) 

IF  SOLUTION  HAS  CONVERGED  STOP  ITERATING  AND  OUTPUT  RESULTS 

IF!  1 1  TER.  EG.  1.  AND.  NCHECK.  EG.  O)  GO  TO  100 

IF  (NCHECK.  EG  0)  GO  TO  75 
CONTINUE 


KSTOP  =1 

CALL  OUTPUT ( I  ITER,  NTOTG,  NTOTV,  NVFIX,  NCHECK,  NELEM, 

NGAUS, NOFIX,  NOUTP,  NPOIN, 

NSTRE, NVFIX, STRSG,  TDISP,  TREAC,  EPSTN, 

POSGP, EFFST, MATNQ, MMATS,  PROPS, 

NPROP, MELEM,  THICK, 

NFOIN, LNODS,  MLAYR,  NLAYR) 

IF  (KSTOP  EG.  1  )  STOP 

RECORD  ONTO  TAPE  12  THE  DATA  NEEDED  FOR  RESTART  THE  PROBLEM 
TO  NEXT  INCREMENT 

CALL  RESTR (EFFST,  ELOAD,  EPSTN,  MELEM,  MEVAB, MTOTG, 

NTOTV, NVFIX,  TDISP, TLOAD, TREAC,  STRSG, 

TFACT, IINCS) 

CONTINUE 

STOP 

END 
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ABSTRACT 


Tiui  macroscopic  elastic  t»»hevinr  of  3-D  braided 
ii  characterized  on  the  basis  of  a  mi- 
cramodumical  analysis  of  a  unit  cell  structure. 
Treating  a  3-D  braided  composite  aa  an  assembly  of 
infiiUnal  »mt  cells  idealised  as  a  pin-jointed  truss 
in  shape  of  a  bride,  the  Finite  Cell  model  is  based 

on  the  principle  of  virtual  work  and  structural  truss 
analjaia.  The  — of  the  resultant  model  is 
explored  via  parametric  study  and  verified  using  the 
tensile  properties  of  carbon-carbon  composites.  • 

INTRODUCTION 

The  explosive  growth  of  aerospace  industry  in 
recent  years  has  stimulated  a  rapid  development  of 
innovative  and  fabrication  techniques  for 

advanced  structural  composites.  The  recent  progress 
in  fabric  formation  technology  has  created  new 
options  in  composite  structural  design.  Using  the 
fabric  formation  technology,  various  fiber  geometric 
structures  can  faa  formed  easily.  In  order  to  fully 
explore  the  potential  of  these  new  material  systems, 
an  analytical  framework  is  needed  to  link  fiber 
architecture  and  material  properties  to  composite 


Among  tbs  large  family  of  textile  structural 
composites,  the  3-D  braided  composites  have  received 
a  great  deal  of  attention  owing  to  their  improved 
stiffiaaos  and  strength  in  the  thickness  direction, 
their  deleminatioo-frse  characteristics  and  their 
near  net  shape  capabilities.  Several 

analytic  models  have  been  developed  to  chsrsctcriro 
the  elastic  and  structural  behavior  of  3-D 


Mm.  Tang  and  Chon  [1]  assumed  the  yarns  in 
a  unit  cell  of  a  3-D  braided  composite  as  composite 
rods,  which  form  a  parallel  pipe.  Strain  energies  due 
to  yarn  axial  tension,  bending  and  lateral  com¬ 
pression  are  considered  and  formulated  within  the 
unit  celL  By  CsstigKanoV  theorem,  dosed  form 
for  Mrinl  elastic  moduli  end  Poisson’s 
ratios  have  been  derived  as  functions  of  fiber  volume 
fraction*  and  fiber 

Mu,  etsL  also  developed  a  “Fiber  Inclination 
Model"  according  to  the  idealized  zig-zagging  yarn 
arrangement  in  the  braided  preformf  2]  They 
assumed  an  lamina  as  a  representation  of 

one  set  of  diagonal  yarns  in  a  unit  celL  In  this  way, 
four  unidirectional  laminae  form  a  unit  celL 

Then,  by  the  employment  of  dassical  laminate 
theory,  the  can  be  expressed  in  terms 

of  the  laminae  properties. 

From  a  "preform  processing  science'  point  of 
view,  Kb  et  aL{3]  developed  a  “Fabric  Geometric 
ModdT  using  simOar  assumptions.  The  stiffness  of  a 
3-D  braided  composite  was  considered  to  be  the  sum 

of  - s  of  all  its  A  maximum  strain 

energy  criterion  was  need  to  determine  the  failure 
point  for  each  by  toUnp  bending  stress  on 

yarn  crossover  Into  consideration.  The  stiffness 
matrix  forms  a  fink  between  applied  strains  and  the 
corresponding  stress  responses.  Throughout  this 
analysis,  the  shoes  stiaifi  characteristics  of  the 
composite  are  determined. 

The  results  of  elastic  properties  from  the  above 
three  models  can  be  used  as  input  to  a  generalized 
finite  dement  program  in  order  to  analyze  more 
complex  duped  structures.  By  doing  so,  the  3-D 
braided  f*"!1”8**  has  to  be  treated  as  effective 
continuum,  and  tbs  unique  characteristics  of  each 
individual  yam  and  matrix  are  smeared  oat  With 
these  complex  fiber  architecture  systems,  the 


'effective  continuum  concept  can  no  longer  provide 
accurate  description.  It  is  the  objective  of  paper 
to  establish  a  finite  cell  model  (FCM)  which  can 
accommodate  structures  with  variable  unit  cells  and 
provide  a  link  between  micros  tract  ural  design  and 
macro-structural  analysis.  In  complex  structural 
shapes  such  as  I-beams,  turbine  blades,  the  final 
structure  often  consists  of  several  types  of  fiber 
architecture. 

IHfi  FINITE  CELLMODEL 

The  FCM  is  based  on  the  concept  of  fabric  unit 
cell  structure  and  structural  truss  analysis.  The 
fiber  architecture  within  the  composite  is  considered 
as  an  assemblage  of  a  finite  number  of  individual 
structural  cells  with  bride  shape.  Each  individual 
cell  is  the  smallest  representative  volume  from  the 
fibrous  assembly.  The  unit  cell  is  then  treated  as  a 
space-truss  structure  with  tire  endowed  rep¬ 
resentative  architecture,  rather  than  a  material  with 
a  set  of  effective  continuum  properties. 

The  key  step  in  the  formulation  of  the  problem 
is  the  identification  of  the  unit  060*0  nodal  supports, 
similar  to  the  nodal  points  of  a  conventional  finite 
dement.  In  this  model,  the  yarns  are  assumed  to 
travel  along  the  diagonals  in  a  unit  cell  and  are 
treated  as  pinpointed  two-force  trass  members.  By 
treating  a  unit  cell  specifically  as  a  3-D  space  truss .  a 
3-D  truss  finite  element  technique  may  be  employed 
for  the  mechanistic  analysis. 

A  displacement  method  is  chosen,  in.  the  finite 
element  procedure  which  follows  the  principle  of 
virtual  work.  This  method  regards  the  ™*il  dis¬ 
placements  as  basic  unknowns.  Thus,  s  virtual  dis¬ 
placement  or  a  unit  displacement  is  used  in  the  finite 
element  procedure.  The  compatibility  condition  is 
first  satisfied  by  correlating  the  nod r'  'fisplacementa 
to  the  end  deformations  of  the  membt. 


total  value  of  each  member  deformation  caused  by  all 
the  nodal  displacements  may  be  written  in  the 
following  matrix  form: 

(q)«MM  (1) 


where  (a]  is  called  the  displacement  transformation 
matrix  which  relates  the  member  deformations  to  the 
nodal  displacements.  In  other  words,  it  represents 
the  compatibility  of  displacements  of  a  system. 

The  next  step  is  to  establish  the  force-dis¬ 
placement  relationship  within  the  unit  cell.  For  a 
pin-connected  trace,  the  member  force-deformation 
relationship  can  be  written  as: 

[Ql-lOTiq)  (2) 

■  -  _ 

where: 

* 

AE/L 

AE/L 

BCJ  *  AE/L 

« 

The  principle  of  virtual  work  states  that  the 
work  done  on  n  system  by  the  external  forces  equals 
the  increase  in  strain  energy  stored  in  the  system. 
Here,  the  nodal  forces  can  be  considered  as  the  exter¬ 
nal  forces  of  the  unitcelL  .Therefore,  if  (R)  represents 
the  nodal  force  vector,  it  follows  that 


The  force-displacement  relationship  is  then 
eatehfiehed  between  the  member  end  forces  de¬ 
formations  and  between  the  possible  nodal  forces  and 
nodal  displacements.  Finally,  ■«■■»[  equilib¬ 
rium  aquations,  the  member  forces  and  deformations 
of  the  structure  are  obtained.  The  matrix  [KJ  or  the 
stiffness  of  the  cell  Is  then  derived  to  relate  nodal 
dianleccinent  vector  to  nodal  forces  fee  ■  criL 

In  order  to  indude  the  effort  of  matrix,  which 
is  subjected  to  tension  or  compression  ruder  the 
deformation  of  yarns,  the  matrix  is  assumed  to  set  as 
truss  members,  connecting  the  two  ends  of  s  given 
set  of  yarns  in  the  unit  cell  as  shown  in  figure  L  In 
the  unit  cell,  the  nodes,  or  the  ends  of  yarns,  are  pin- 
loioftod  with  throe  degrees  of  freedom  in  translation. 
Hawes,  the  matrix  plays  a  role  in  restricting  the  free 
rotation  and  deformation  of  yarns.  Thera  are  a  total 
ef  34  degrees  of  freedom  in  a  four  diagonal  yarn  unit 

EW  this  analysis,  the  interaction  at  the  yarn 
interlacing  and  bending  effect  of  yarns  are  net 


IrPtRl-famQ}  (3) 

where  fcj  and  (a)  are  virtual  displacement  and 
deformation,  respectively.  From  EQa.(l)  and  (2).  the 
following  equations  can  be  derived: 

(Ql-DKTalW  (4) 


taF-WW 

and 

Id*®!  -  (ri^taFlKlM 

Or. 

(Rl-tKIW 

where  (R)  -  nodal  forces 


(5) 

(6) 
<7) 


®  ■  MFtKTa]  ■  stiffness  matrix  of  the 
unit  cell 


W  ■  nodal  displacements 

Osing  Equation  7.  tire  nodal  force  and  the  nodal 
displacements  of  a  unit  ceQ'aro  related.  Thus,  fora 
structural  shap#  which  consists  of  a  finite  number  of 
unit  calls  with  a  specific  assemblage  pattern,  a  sys- 


t+m  of  equation*  for  the  total  structural  shape  can  be 
assembled  using  the  individual  cell-relations 
following  the  finite  element  methodology.  A  complete 
Gating  of  the  terms  associated  with  the  K  matrix  is 
given  in  Figure  2. 

From  the  solution  of  the  equations,  the  stress 
distribution  and  deformation  of  the  entire  structure 
under  appfied  load  can  bo  calculated  and  analysed. 
To  iHnstrate  the  application  of  the  FCM,  $-D  braided 
composites  are  used  for  this  study.  With  basic  pa¬ 
rameters  in  a  unit  cell,  such  as  yam  elastic  modu¬ 
lus.  fiber  volume  fraction,  yam  orientation  and  unit 
cell  dimension  fully  characterised,  the  applicability  of 
the  FCM  to  predict  the  structural  response  of 
composites  will  bo  demonstrated  through  a 
parametric  study  and  verified  experimentally. 

NUMERICAL  SIMULATIONS 

The  FCM  was  implemented  by  the  use  of 
computer  simulation.  By  entering  the  basic 
parameters  for  a  unit  cell  and  fihezftnstrix  properties 
to  the  program,  the  load-deformation  and  elastic 
properties,  such  as  elastic  moduli  and  Poison's 
ratios,  of  a  composite  can  bo  calculated.  A  few 
examples  are  employed  to  demonstrate  the 
applicability  of  the  FCM  under  different  conditions. 

To  study  the  elastic  behavior  between  different 
*  fiber  geometries,  the  composites  under  lxl  and  1x2 
braiding  processes  are  chosen.  The  basic  parameters 

vra  identical  except  the  dimensions  of  the  two  unit 
sells.  Figure  3  shows  the  predicted  tensile  stress- 
jtrain  corvee,  where  higher  stiffness  of  lxl  brai£ng 
can  be  observed.  The  reason  is  that  the  lxl  braiding 
has  compact  fiber  geometry  in  a  unit  celL 

Figure  4a  and  4b.  depict,  the  elastic  behavior  of 
lxl  braided  composites  under  1-1,  2-2  3-3 

'fractional  tensile  loading  conditions  for  Kevlar 
-  49/Epon  828  and  carbon/carbon  composites, 
espectively.  As  shown  in  the  figure,  the  modulus  in 
1-1  (Erection  is  the  highest  as  expected,  while  the 
"todulns  in  3-3  direction  is  the  lowest. 

The  effect  of  fiber  volume  fraction  under  the 
ama  braiding  process  is  illustrated  in  Figure  6. 
Three  volume  fractions  are  chosen  for  study.  Here, 
ho  dimension  of  si  unit  cell,  fiber-bar  area  and 
iatsix-har  area  are  different  doe  to  different  fiber 
.  ilnme  fraction.  The  results  demonstrate  that  the 
composite  with  higher  fiber  volume  fraction  has 
‘•igber  modulus. 


In  laminated  composite,  it  is  kno 
the  same  fiber  volume  fraction,  the  con 
VJgher  off-ads  fiber  orientation  baa  la 
epertiea.  Te  «My  this  phenomenon,  a 
.3*.  20*.  24',  30*  and  40*  of  braiding 


that  for 
ite  with 
r  elastic 
ositesof 


V*  braiding  angl 
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angle  is  above  20*.  the  elastic 
it*  tends  to  bo  in  sensitive  to 


lidded 


m  bo  extended  to  analyze  the  34) 
with  different  kind  of  mdt  caOa. 


To  do  so,  the  positions  of  each  unit  cell  should  be 
identified  and  recorded  like  traditional  finite  element 
programming.  Hence,  a  complex  shaped  structure, 
such  as  3-d  braided  I-beam,  rotor,  etc.  can  be 
analyzed  if  the  basic  parameters  of  unit  cells  and 
fiber  volume  fraction  are  given. 

EXPERIMENTAL  VERIFICATION 

To  provide  a  preliminary  verification  of  the 
model,  simple  rectangular  coupons  of  the  3-D  braided 
carbon-carbon  composite  were  fabricated  and 
characterized  by  tensile  testing.  When  using  a 
simple  shape,  as  detailed  in£4],  the  key  parameter  in 
the  braiding  process  is  the  track  and  column 
displacements  These  displacements  determine  the 
projected  orientation  of  fibers  in  the  x-y  plane,  as  well 
as  effecting  the  overall  structural  geometry  of  the 
fabric. 

The  track/column  displacements  chosen  for- 
thia  study  were  1/1  and  1/2.  The  notation  u/v  indi¬ 
cates  a  track  displacement  of  u  bobbins  and  a  column 
displacement  of  v  bobbins  in  one  motion.  The  small¬ 
est  representative  volume  of  these  fabrics,  or  the  unit 
cell,  ia  identified  by  the  itfqjMwnwitinlnM  n f  «Ar  _ 

Using  the  FCM,  the  structural  response  of  the 
unit  cell  under  applied  load  was  examined.  The 
simulated  results  were  compared  to  the  experimental 
data.  The  material  used  for  this  study  was  T-40 
carbon  fiber,  with  a  fiber  modulus  of  40  MsL  The 
l/S'xTxKT  3-D  braided  preforms  were  consolidated 
with  carbon;  the  fiber  volume  fraction  of  the 
composite  was  35%.  End  tabs  were  adhered  to  the 
ends  of  the  specimens,  and  strain  gages  were  applied 
to  the  specimen  surface.  The  tensile  tests  were 
carried  out  according  to  ASTM  Standard. 

From  the  experimental  stress-strain  curves 
shown  in  Figure  7,  it  can  be  seen  that  the  tensile 
responses  of  the  3-D  braided  Carbon/Carbon 
composites  are  nearly  linear  to  the  point  of  failure. 
The  possible  nonlinear  behavior  due  to  geometric 
effect  and  microcracking  are  not  evident 

For  the  lade  of  accurate  measurement  of  fiber 
volume  fraction  of  a  unit  cell,  a  theoretical  value  of 
35%  of  fiber  volume  fraction  was  used  for  the 
numerical  computation.  The  dimension  of  a  unit  cell 
ia  determined  from  the  measurements  by  a  digital 
caliper.  Since  the  dimensions  of  a  cell  are 
considered  to  bo  the  center  lines  of  members  of  the 
unit  cell,  part  of  the  bars  lie  outside  the  unit  celL 
Thus,  an  averaging  method  for  the  determination  of 
the  cross  section  areas  of  the  bars  was  used.  For  a 
unit  cell  dimension  of  HxWrfT.  the  area  of  a  fiber-bar 
can  ba  obtained  as  Af  -  0JJ5HWT  /  4CH2+W2+T2)l/2; 
the  area  of  a  matrix-bar  can  bo  expressed  as  Am  * 
OiahW-f  /  4CH+W+TX  Here,  area  of  each  fiber-bar  as 
well  as  the  matrix-bar  are  the  same.  Accordingly, 
the  elastic  properties  used  for  the  unit  cell  are: 

Eg.  40  mat  ;Vf- 035 
fta"  L2msi;VB«o^5 


for  1x2  unit  cell,  the  dimension  it  0.295'r  0.13“x 
0.0864* 

and  Af  “0.000852  in2  Am  «  0.0010309  in2 

Since  each  cell  hat  an  aimfUe  geometry  and 
boundary  conditions.  it  it  sufficient  to  model  only  one 
element,  at  ehown  in  Figure  8.  A  uniform  load  was 
applied  at  one  end  of  the  cril.  The  applied  load  waa 
divided  into  several  lead  steps  on  account  of  tha 
poesible  nonlinear  load-defamation  behavior  due  to 
geometrical  conformation.  At  each  load  step,  con¬ 
vergence  was  achieved  after  several  iterations.  Fig¬ 
ure  9  shows  both  calculated  and  experimental  stress- 
•trmin  curves  fa  lxl  and  1x2  unit  cells,  respectively. 
The  results  show  that  variation  of  fiber  geometry 
from  lxl  to  1x2  does  not  have  modi  effect  on  the 
overall  characteriatict  of  the  atreee  str  ain  curves. 

Tha  prwEffaJ  gtiffheaa  af  tii*  conpoatn 
towards  a  higher  value  than  experimental  results. 
This  can  be  attributed  to  tha  use  of  fiber  data  as  an 
input  for  our  prediction.  In  order  to  reflect  tha  fiber 
breakage  and  degradation  during  manufacturing, 
the  use  of  yam  data  may  be  more  appropriate. 

CONCLUDING  REMARKS 

A  finite  cell  model  has  been  developed  to  pre¬ 
dict  the  mechanical  behavior  of  3-D  braid  composites. 
By  appropriate  choice  of  yam  mechanical  properties 

- Ugjoil  (f  |  «w»t 

tha  FCM  has  been  shown  to  bo  an  adequate  model  for 
any  3-D  braided  composite  far  a  first  approximation. 
Further  studies  on  yarn  properties  should  be 
conducted  in  order  to  provide  e  realistic  basis  for  the 
application  of  FCM  to  composite  wM>i«wif«l 
properties. 

h  a  3-D  braided  composite,  the  yarns  actually 
experience  handing  memento  throughout  the  unit 
cell  during  the  braiding  process.  The  present  model 
wiD  be  modified  to  indude  the  beading  effect  and  the 
pin-jointed  truss  replaced  as  a  staffer  frame 
structure.  It  ehonld  be  pointed  out  that  the  fiber 
geometry  of  a  unit  cell  along  the  boundary  of  a 
specimen  is  slightly  different  fins  the  one  near  tha 
center.  In  order  to  more  precisely  characterise  the 
load-deformation  relationship  of  the  whole  composite, 
especially  at  the  comer  of  a  complex  shape  3-D  braid 
composite,  a  far  different  unit  cell  may  be  introduced 
within  a  analysis. 
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ABSTRACT 

A  numerical  method,  which  utilizes  the  computer  aided  geometric  modelling 
(CAGM)  in  conjunction  with  finite  element  procedures,  is  presented  to  predict 
the  mechanical  behavior  of  3-D  braid  composites.  The  CAGM,  based  on  the 
computer  geometric  technique  and  textile  formation  process,  provides  the 
detailed  information  of  the  fiber  architecture  of  3-D  braid  composites.  With  the 
fiber  architecture  being  defined,  unit  cell  structures  can  be  identified  and  be 
treated  as  space  structures.  Then,  finite  element  procedures  can  be  performed 
on  each  unit  cell  to  obtain  the  elastic  behavior  of  the  composites.  The  present 
analysis  includes  the  consideration  of  the  interior  and  boundary  elements  of 
the  entire  cross-section,  and  consideration  of  bending  moment  of  the  yarns. 
The  present  model  predicts  a  lower  value  of  Young's  modulus  than  that  of 
experimental  results.  Modifications  will  be  made  on  how  to  properly  represent 
the  matrix  effect  of  a  3-D  braid  composite. 

INTRODUCTION 

In  the  family  of  advanced  composites,  3-D  textile  composites  have  received 
great  attention  because  of  their  superior  structural  properties  such  as  no 
delamination,  improved  stiffness,  tough.. sss  in  the  through-thickness 
direction  and  improved  impact  tolerance. [1]  In  developing  these  composites 
with  innovated  fiber  architecture,  an  analytic  model  is  needed  in  order  to 
describe  the  load-deformation-failure  properties  of  a  composite  on  a 
macroscale.  Such  a  model  must  be  developed  based  on  the  accurate  description 
of  geometry  and  material  interactions  in  the  composite  fiber  achitecture. 


As  reviewed  in  the  papers  of  Rosen  et  al.[2]  and  Ko[3],  the  literature  for  the 
analysis  of  3-D,  or  X-D  fibrous  reinforced  composites  are  very  limited.  Most  of 
the  publications  concern  with  the  formulation  and  prediction  of  mechanical 
properties  of  the  composites.  For  instance,  Rosen  et  al.  [2]  used  the  concept  of 
"constant  stress  state"  to  derive  the  average  elastic  constants  and  thermal 
coefficients  of  a  unit  cell  structure.  Chou  et  al.  predicted  elastic  moduli  of  3-D 
braided  composites  based  on  energy  method  [4]  and  on  the  modified  classical 
laminate  theory  [5],  respectively.  Combining  textile  engineering  methodology 
and  averaging  effective  properties  of  a  unit  cell,  Ko  et  al.  [6]  developed  "fabric 
geometric  model”  to  predict  the  mechanical  properties  and  failure  of  3-D 
composites.  Following  the  similar  considerations  of  volume  averaging 
method,  Byun  et  al.  [7]  predicted  elastic  moduli  of  2-step  braid  composites.  The 
elastic  properties  from  the  above  models  can  be  used  as  input  to  a  generalized 
finite  element  program  in  order  to  analyze  complex  33)  structures. 

As  far  as  the  methodology  is  concerned,  the  conventional  finite  element 
method  assumes  the  fibrous  composite  to  be  an  effective  continuum  which 
possesses  anisotropic  deformation  properities.  Therefore,  Die  finite  element 
method  can  be  used  to  analyze  structures  of  complex  conformation.  For 
example,  the  well-known  structural  analysis  programs  based  on  the  finite 
element  method,  such  as  NASTRAN,  ABAQUS  and  ANSYS,  treat  the  composite 
material  structures  computations  in  classical  sense.  That  is,  every  element  is 
given  apparent  homogeneous  properties  in  terms  of  the  type,  orientation  and 
stacking  sequence  of  fibers  and  type  of  matrix.  The  stiffness  matrix  is 
calculated  for  the  model  consisting  of  elements  with  equivalent  properties. 
Displacements,  strains  and  internal  forces  of  a  structure  are  first  obtained  for 
that  model  and  then  the  stresses  in  the  structure  are  calculated. 

With  complex  fiber  achitecture  system  such  as  3-D  braids,  however,  the 
effective  continuum  concept  can  no  longer  provide  an  accurate  description. 
The  reason  is  that  the  microstructure  of  such  new  system  is  much  more 
complicated  than  those  found  in  laminated  composites.  Recently,  Lei  et  al. 
18,9],  following  finite  element  procedure,  developed  a  finite  cell  model  (FCM)  to 
analyze  the  elastic  behavior  of  3-D  braid  composites.  The  FCM  takes  account  of 
the  fiber  achitecture  of  a  unit  cell  in  a  3-D  braid  composite  and  performs  3-D 
structural  analysis  of  the  considered  unit  cell.  Thus,  the  first  step  of  the 
analysis  is  to  identify  the  unit  cells  in  a  composite.  This  paper  presents  a 
methodology  for  the  identification  and  classifieation  of  unit  cells  based  on  3-D 


braiding  processing  parameters.  The  identified  unit  cell  structures  form  the 
basis  for  3-D  graphic  illustration  of  the  fiber  architecture  and  for  the  finite 
element  analysis  of  the  3-D  preform  as  a  structure.  With  the  FCM,  the  elastic 
properties  and  the  stress-strain  relationship  of  3-D  braid  reinforced  composites 
are  predicted  and  compared  with  experimental  results. 

MODELLING  OF  3-D  BRAID  COMPOSITES 

The  3-D  braid  composite  can  be  regarded  as  an  assemblage  of  a  finite  number 
of  individual  structural  cells.  Each  individual  cell  is  the  smallest 
representative  volume  taken  from  the  fiber  aehitectural  system.  It  is  then 
treated  as  a  space  structure  with  the  endowed  representative  achitecture,  rather 
than  a  material  with  a  set  of  effective  continuum  properties.  The  basic  idea  is  to 
identify  the  unit  cell's  nodal  supports,  similar  to  the  nodal  points  of  a 
conventional  finite  element.  By  the  introduction  of  the  principle  of  virtual 
work  in  solid  mechanics  and  structural  analysis,  the  matrix  [k],  the  stiffness 
of  the  cell  can  be  derived  to  relate  nodal  displacement  vector  to  nodal  forces  for 
a  cell.  In  this  section,  the  utilization  of  fiber  architecture  model  and  the  finite 
cell  modelling  will  be  discussed. 

Unit  Cell  Characterization  by  CAGM 

The  analysis  of  textile  composites  depends  directly  on  fiber  architecture  of  the 
composites.  The  fiber  achitecture  of  a  textile  composite  can  be  accurately 
characterized  by  a  computer  aided  geometric  model  (CAGM).  The  details  of 
development  of  this  model  is  given  in  Pastore  et  al.’s  paper  [10].  This  model 
considers  the  relative  motions  of  the  tracks  and  columns  in  the  braiding 
machine  and  generates  a  mathematical  simulation  of  the  machine  process. 
Thus,  the  detailed  internal  geometry  of  a  textile  reinforced  composite  can  be 
visualized  and  the  unit  cell  of  the  composite  can  be  identified.  Figure  1  shows 
the  fiber  achitecture  of  a  3-D  braid  with  an  inclined  cut-out  generated  by  CAGM. 
The  next  step  is  to  find  out  what  the  unit  cell  structure  is  in  the  braid. 

In  the  paper  [9],  a  unit  cell  structure  shown  in  Figure  2  was  proposed  and 
assumed  to  represent  the  entire  structure  of  a  braid.  The  unit  cell  structure  was 
used  to  simulate  the  behavior  of  3-D  braid  carbon/carbon  composites.  The 
recent  development  of  CAGM  suggests  a  finer  and  more  accurate  description  of 
unit  cell  structure.  By  simulating  the  yarn  movements  across  tracks  and 
columns  of  a  loom  and  taking  account  of  braiding  direction,  unit  cell 
conformation  can  be  traced  through  3-D  geometric  index  of  data.  From  the 


data,  space  nodes  of  a  braid  can  be  defined  by  the  interweaving,  or  interlock,  of 
yams.  Once  the  space  nodes  are  known,  the  braid  is  divided  into  small  cells  by 
connecting  the  space  nodes  with  straigh  lines.  In  each  cell,  the  fiber 
architecture  can  be  identified  and  treated  as  a  combination  of  several  basic 
patterns.  Figure  3  shows  all  possible  patterns  in  a  3-0  braid  generated  by  lxl 
column/track  movement.  In  practical  case,  a  3-D  braid  usually  contains 
several  patterns. 

For  instance.  Figure  4  shows  top  view  of  a  cross-sectional  cell  patterns  of 
a  3-D  braid  fabricated  by  a  loom  of  4  tracks  and  20  columns.  Figure  4.a  shows 
the  cell  patterns  after  a  column/track  movement,  and  Figure  4.c  shows  the  cell 
patterns  after  next  column/track  movement  Figure  4.b  and  Figure  3.d  shows 
the  corresponding  patten  numbers  of  each  cell,  respectively.  From  Figure  4, 
one  can  recognize  the  cell  structures  in  the  outer  region  differ  from  the  ones  in 
the  inner  region  of  the  braid.  Therefore,  the  CAGM  can  provide  the 
information  of  the  various  element  types,  i.e.,  central  and  boundary  elements, 
for  finite  element  modelling.  Figure  5  shows  the  space  fiber  structure  formed 
by  a  loom  of  10  tracks  and  4  columns  under  4  column/track  movements. 

Finite  Cell  Modelling 

The  FCM  is  based  on  the  concept  of  fabric  unit  cell  structure  and  structural 
analysis.  The  composite  is  considered  as  an  assemblage  of  a  finite  number  of 
individual  structural  cells  with  brick  shape.  Each  unit  cell  is  then  treated  as  a 
space  structure  with  the  endowed  representative  architecture. 

The  key  step  in  the  formulation  of  the  problem  is  the  identification  of  the 
unit  cell's  nodal  points.  As  mentioned  in  the  previous  section,  the  CAGM 
provides  not  only  the  detailed  fiber  architecture  of  each  unit  cell  but  also  the 
coordinates  of  each  node.  In  this  model,  the  yams  which  pass  by  a  node  are 
considered  as  intersected  each  other  and  hence,  can  be  treated  as  either  pin- 
jointed  two-force  truss  members  or  rigid  connected  frame  members.  With  this 
consideration,  the  interaction  at  the  yam  interlacing  is  not  treated  in  this 
modelling.  Thus,  by  treating  a  unit  cell  specifically  as  a  pin-jointed  space 
truss  ,  a  3-D  truss  finite  element  technique  may  be  employed  for  the 
mechanistic  analysis. 

In  order  to  include  the  effect  of  matrix,  which  is  subjected  to  tension  or 
compression  under  the  deformation  of  yarns,  the  matrix  is  assumed  to  act  as 


rod  members,  connecting  the  two  ends  of  a  given  set  of  yarns  in  the  unit  cell. 
Hence,  the  matrix  plays  a  role  in  restricting  the  free  rotation  and  deformation 
of  yarns. 

Let  ajj  represent  the  value  of  member  deformation  qj  caused  by  a  unit 
nodal  displacement  rj.  The  total  value  of  each  member  deformation  caused  by 
all  the  nodal  displacements  may  be  written  in  the  following  matrix  form: 

{q]  =  [al  M  (1) 

where  [a]  is  called  the  displacement  transformation  matrix  which  relates  the 
member  deformations  to  the  nodal  displacements.  In  other  words,  it  represents 
the  compatibility  of  displacements  of  a  system. 

The  next  step  is  to  establish  the  force-displacement  relationship  within 
the  unit  cell.  The  member  force-deformation  relationship  can  be  written  as: 

[Q]  =  [K]  (q)  (2) 

The  principle  of  virtual  work  states  that  the  work  done  on  a  system  by  the 
external  forces  equals  the  increase  in  strain  energy  stored  in  the  system.  Here, 
the  nodal  forces  can  be  considered  as  the  external  forces  of  the  unit  cell. 
Therefore,  if  (R)  represents  the  nodal  force  vector,  it  follows  that 

(l)T{R)  =  {flJT{Q}  (3) 

where  (z}  and  (a)  are  virtual  displacement  and  deformation,  respectively. 
From  Equation8.(l)  and  (2),  the  following  equations  can  be  derived: 

(R)  =  [K]{r)  (4) 

where:  (R)  =  nodal  forces 

[K]  s  [aJ^tlClCa]  s  stiffness  matrix  of  the  unit  cell 
(r)  s  nodal  displacements 

Using  Equation  (4),  the  nodal  force  and  the  nodal  displacements  of  a 
truss  unit  cell  are  related  by  the  stiffness  matrix  of  the  unit  cell. 


In  present  study,  each  unit  cell  is  modelled  to  be  a  frame  structure. 
Therefore,  axial,  flexural,  and  torsional  deformations  of  the  yarns  are 
considered  in  the  analysis.  The  unkown  displacements  at  the  joints  consist  of 
six  components,  namely,  the  x,  y  and  z  components  of  the  joint  translations  and 
the  x,  y  and  z  components  of  the  joint  rotations.  Therefore,  for  a  9-node  frame 
unit  cell,  there  are  54  degrees  of  freedom  in  this  unit  cell.  Suppose  that  a 
member  i  in  a  space  frame  will  have  joint  number  j  and  k  at  its  ends.  The 
twelve  possible  displacements  of  the  joints  associated  with  this  member  are  also 
indicated  in  Figure  6.  To  obtain  the  stiffness  matrix  of  a  unit  cell  in  a  simple 
way,  the  stiffness  matrix  of  a  member  is  constructed  first  instead  of 
construction  of  displacement  compatibility  matrix. 

The  member  stiffness  matrix  is  obtained  by  a  unit  displacement  method. 
The  unit  displacements  are  considered  to  be  induced  one  at  a  time  while  all 
other  end  displacements  are  retained  at  zero.  Thus,  the  stiffness  matrix  for  a 
member,  denoted  [S^l,  is  of  order  12x12,  and  each  column  in  the  matrix 
represents  the  forces  caused  by  one  of  the  unit  displacements.  The  layout  of  the 
12x12  matrix  is  shown  in  Figure  7.  In  general  case,  if  the  member  axes  are  not 
coincident  with  structural  axes,  the  member  stiffhess  should  be  transformed  by 
a  rotation  transformation  matrix.  The  rotation  matrix  [R/p]  for  a  space  frame 
takes  the  following  form: 

m  o  o  o 

drtI  -  o  m  o  o  (5) 

o  o  m  o 

o  o  o  rn 
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where  the  matrix  [TJ  for  a  circular  member  is  as  follows: 

CX  Cy  Cz  ' 

IT3  ■  -CyCy/Cyy  Cjj  -CyCy  (6) 

•C^Cxz  0  CVCy7. 

where  Cx  =  (x^  -  xp  /  L;  Cy  =  (yk  *  yj)  /  L;  Cz  =  (z^  -  zp  /  L;  L=[(x^  -  xp2  +  (y^  - 
yj)2  +  (Zk  -  Zj)2!1^'  Cxz=(Cx2  +  Cz2)1'2 

Thus,  for  a  member,  the  stiffhess  matrix  [S^p]  in  structure  axes  may  be 
expressed  in  the  following  form: 


[SmtJ  =  [RjO 


(7) 


Then,  assembly  of  the  contributions  from  each  member  to  a  joint,  or  a  node, 
yields  the  stiffness  matrix  of  a  unit  cell. 

With  the  stiffness  matrix  of  a  unit  cell  being  known,  for  a  structural 
shape  which  consists  of  a  finite  number  of  unit  cells,  a  system  of  equations  for 
the  total  structural  shape  can  be  assembled  using  the  individual  cell  relations 
following  thefinite  element  methodology.  From  the  solution  of  the  equations, 
the  stress  distribution  and  deformation  of  the  entire  structure  under  applied 
load  can  be  calculated  and  analyzed. 

NUMERICAL  SIMULATIONS 

The  FCM  was  implemented  by  the  use  of  computer  simulation.  With  basic  pa¬ 
rameters  in  a  unit  cell,  such  as  yam  elastic  modulus,  fiber  volume  fraction, 
yam  orientation  and  unit  cell  dimension  fully  characterized,  the  applicability 
of  the  FCM  to  predict  the  structural  response  of  composites  will  be  demonstrated 
experimentally. 

Simple  rectangular  coupons  of  the  3-D  braided  carbon-carbon  composite 
were  fabricated  and  characterized  by  tensile  testing.  In  the  present  case,  the 
track/column  displacement  ratio  is  1/1.  The  material  used  for  this  study  is  T- 
40  carbon  fiber,  with  a  fiber  modulus  of  276  GPa.  The  fiber  volume  fraction  of 
the  composite  is  35%.  The  modulus  of  the  carbon  matrix  is  taken  as  8.3  GPa  for 
prediction.  Since  the  dimensions  of  a  unit  cell  are  considered  to  be  the  center 
lines  of  members  of  the  unit  cell,  part  of  the  bars  lie  outside  the  unit  cell  in  real 
case.  An  averaging  method  for  the  determination  of  the  cross-section  areas  of 
the  bars  was  used.  Assuming  that  all  the  fiber-bars  of  the  composite  have  the 
same  cross-sectional  area,  and  that  all  the  matrix-bars  of  the  composite  have 
the  same  cross-sectional  area  as  well.  Thus,  for  a  specimen  with  dimension  of 
HxWxT,  the  area  of  a  fiber-bar  can  be  obtained  as 

Af  =  0.35HWT  /  (totalfiber-barlength) 


the  area  of  a  matrix-bar  can  be  expressed  as 


Am  =  0.65HWT  /  (total  matrix-bar  length) 


Accordingly,  the  unit  cell  dimension  is  0.635x  0.22x  0.19  cm3.  Af  is  0.0032  cm2 
and  Am  is  0.004  cm2. 

Figure  8  shows  the  loading  condition  and  boundary  conditions  of  a 
specimen.  A  specimen  in  length  of  10  column/track  movements  is  considered 
for  analysis  purpose.  The  applied  load  was  divided  into  several  steps  on 
account  of  the  possible  nonlinear  load-deformation  behavior  due  to  geometrical 
conformation.  Figure  9  shows  both  experimental  and  numerical  stress-strain 
curves  of  c/c  composites  under  simple  tension.  From  the  figure,  the  stiffness  of 
the  composites  predicted  from  FCM  showed  a  lower  value  than  experimental 
results;  while  FGM  predicted  a  higher  value.  For  the  ‘FCM,  the  consideration  of 
yarns  and  matrix  as  structural  bars  may  result  in  a  lower  stiffness  in  matrix- 
bar  axis.  Although  the  matrix-bars  play  the  role  in  restricting  the  free 
deformation  of  the  yams  in  FCM,  they  show  larger  deformation  under  tensile 
load.  Consequently,  the  nature  of  the  finite  cell  modelling  tends  to  predict  a 
lower  value  of  stiffness  of  a  structure.  Further  studies  on  this  model  to 
investigate  the  interaction  between  fiber  and  matrix  have  to  be  conducted.  The 
load  transfer  mechanism  between  fibers  and  matrix  as  well  as  the  effect  of 
fiber  achitecture  in  a  unit  cell  needs  to  be  explored.  This  may  lead  to  a  3-D 
solid  element  modelling  on  the  unit  cell  of  a  braid  composite.  For  the  FGM,  the 
higher  predicted  stiffness  may  be  attributed  to  the  use  of  fiber  data  as  an  input 
for  our  prediction.  In  order  to  reflect  the  fiber  breakage  and  degradation 
during  manufacturing,  the  use  of  processed  yam  data  may  be  more 
appropriate. 


CONCLUDING  REMARKS 

A  unified  mechanistic  method,  incorporating  the  computer  aided  geometric 
modelling  and  finite  element  procedure,  has  been  presented  to  predict  the 
mechanical  behavior  of  3-D  braid  composites.  The  CAGM  has  been  shown  to 
provide  the  detailed  information  of  the  fiber  architecture  of  3-D  braid 
composites.  The  present  analysis  includes  the  consideration  of  the  interior  and 
boundary  elements  of  the  entire  cross-section,  and  consideration  of  bending 
moment  of  the  yams.  By  appropriate  choice  of  yam  mechanical  properties  and 


precise  determination  of  dimension  of  a  unit  cell,  the  finite  cell  modelling  has 
been  shown  to  be  an  adequate  model  for  3-D  braided  composites  as  a  first 
approximation.  The  precision  of  the  model  may  be  further  modified  by  an 
alternate  method  of  representing  the  matrix  effect 

In  order  to  expand  the  usefulness  of  the  FCM  to  more  complex  modes  of 
deformation  such  as  bending  and  shear,  the  interaction  between  reinforcing 
yarns  and  the  matrix  must  be  examined.  The  prediction  of  the  stress-strain 
curve  up  to  failure  requires  the  establishment  of  a  suitable  failure  criterion. 
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Figure  t.  Fiber  Architecture  of  a  3-D  braid  and  a  cut-out 
view  generated  by  CAGM. 


Figure  2.  Unit  Cell  Structure  presented  in  [9] 
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Figure  3.  Element  Patterns  of  a  3-D  (1x1)  braid 
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Figure  4.  A  cross  sectional  cell  patterns  generated  by  two 
column/track  movements. 


Figure  5.  Unit  ceil  Structures  formed  by  a  loom  of  10  tracks 
and  4  columns  under  4  column/track  movements. 


Figure  6.  Twelve  possible  displacements  of  two  joints 
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Figure  7.  Stiffness  matrix  of  a  member  in  a  unit  cell. 
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Figure  8.  A  pecimen  of  ten  column/track  movements 
under  uniform  tension 
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Figure  9.  Comparison  between  experimental  and  numerical 
results  of  3-D  braided  carbon/carbon  composites. 


